Solved It shows that there are missing operator

[hucheunghugo]

Private Sub Combo37_Change()
    Dim X As Integer
    X = Me.Combo37
    Controls(FirstName) = DLookup("First_Name", "VIPcustomer", "VIPID =  & X ")

End Sub

For the dlookup

 

[moke123]

You may want to use the after update event.

Me.FirstName = DLookup("First_Name", "VIPcustomer", "VIPID =  " &  X )

Me.FirstName  = DLookup("First_Name", "VIPcustomer", "VIPID =  " &  Me.Combo37 )