Hi I have the following which works but it will not put in the vehicle make,
it just puts in the model.

What am I doing wrong?

Private Sub Registration_Number_AfterUpdate()

Dim ExistingVMake As Variant
Dim ExistingVModel As Variant

ExistingVMake = DLookup("[txtVehicleMake]", "tblRegNumbers", "[txtRegNo]='"
& Me.Registration_Number & "'")
ExistingVMake = DLookup("[txtVehicleModel]", "tblRegNumbers", "[txtRegNo]='"
& Me.Registration_Number & "'")

If Not IsNull(ExistingReg) Then

Me.Make___Model_of_Car = ExistingVMake & ExistingVModel

End If
End Sub

If I take out the & ExistingVModel it puts in the make, how do I get it to
put in the make and model?

Thanks for your help

Bob