Auto Populate A Text Box On Form

I have a form with a text box named HRName.

When I populate a combo box named BusOrgCode, I want to auto-populate the HRName box with the name that corresponds with the Bus Org Code. I get a run time error "2001." Help!

Here's my code:
+++
Private Sub BusOrgCode_AfterUpdate()

Dim strFilter As String

' Evaluate filter before it's passed to DLookup function.
strFilter = "BusOrgCode = " & Me!BusOrgCode

' Look up HR Partner Name and assign it to HRName control.
Me!HRName = DLookup("HRName", "HR by Bus Org Code", strFilter)

Exit_BusOrgCode_AfterUpdate:
Exit Sub

End Sub
+++