Leider klappt es noch nicht.
Er meckert mir an, dass die Typen unverträglich seien.
Laut des Debuggers müsste es diese Zeile sein:
Set rs = CurrentDb.OpenRecordset("SELECT KdNr FROM Kunden WHERE Nachname = '" & var_nachName & "'") ' RS öffnen und zuweisen
Was kann da falsch sein