<code>Dim SQL As String 
Dim lngRecCount As Long
sname = text_aendern_name.Text 
SQL = "SELECT kundendaten.kd_nr, kundendaten.name, kundendaten.telefonnr " & _
  "FROM kundendaten WHERE kundendaten.name like '" + sname + "*'" 
Set Tabelle_kunden = Db.OpenRecordset(SQL) 
If Tabelle_kunden.RecordCount > 0 Then
  Tabelle_kunden.MoveLast
  lngRecCount = Tabelle_kunden.RecordCount
  Tabelle_kunden.MoveFirst
End If
 
Set Tabelle_anmeldung = Db.OpenRecordset("sms_anmeldung") 
If lngRecCount > 1 Then 
While Not Tabelle_kunden.EOF 
  ...</code>