I took this code straight out of Northwind and modified it for my subform.  
Can anyone see any glaring errors?

Private Sub ActionID_AfterUpdate()
On Error GoTo Err_ActionID_AfterUpdate

   Dim strFilter As String

   strFilter = "ActionID = " & Me!ActionID
   
   Me!Action = DLookup("Action", "tblAction", strFilter)
   Me!ActionType = DLookup("ActionType", "tblAction", strFilter)

Exit_ActionID_AfterUpdate:
   Exit Sub

Err_ActionID_AfterUpdate:
   MsgBox Err.Description
   Resume Exit_ActionID_AfterUpdate

End Sub

I don't know what's going wrong. When I select the ActionID in subform
frmReturns, an error message tells me that it doesn't have that automation
object. I can't find automation object anywhere in help and I don't know what
it means...!

TIA