Dim varLastName, FirstName As Variant
varLastName = DLookup("LastName", "Registrasi_Tamu", "TamuID =[TamuID]")
varFirstName = DLookup("FirstName", "Registrasi_Tamu", "TamuID =[TamuID] ")
If (Not IsNull(varLastName)) Then Me!LastName = varLastName
If (Not IsNull(varFirstName))...