Textfeld automatisch füllen

Hallo zusammen,

ich melde mich mal wieder mit einen Access problem, ich denke das ist schnell gelöst - ich kann es nur irgendwie nicht

Alles erstes hier die Datenbank:

Tbl_Handy
HandyID (PS)
Marke
Typ

Tbl_Kunden
Knr (PS)
Name
Vorname
Tel


Die Tabelle ist so minimal gehalten wie möglich (ist ja nur zum testen)!
Im Formular soll nun nach eingabe der HandID die Textfelder Marke und Typ automatisch ausgefüllt werden, ebenso wenn die Knr eingegeben wird sollen Name, Vorname und Tel automatisch mit dem zugehörigen Inhalt bestückt werden.

Mein Lösungsansatz:

Private Sub KnrFml_AfterUpdate()
Dim strFilter As String
strFilter = "[Knr] =" & Me.Knr
Me.KName = DLookup("Name", "Tbl_Kunden", strFilter)
End Sub

Aber wenn ich das mache, wird mir immer nur der erste Name also mit der Knr 1 in meinem Fall Mustermann angezeigt.
Also muss irgendwas an meinem Lösungsansatz falsch sein, kann mir jemand helfen?


Beste Grüße

Private Sub KnrFml_AfterUpdate()
   Dim strFilter As String
   strFilter = "[Knr] =" & Me.KnrFml  
   Me.KName = DLookup("Name", "Tbl_Kunden", strFilter)  
End Sub