Private Sub txtPLZ_LostFocus()
 'Zeigt alle zur eingegebnen PLZ möglichen Orte hinzu
 
 If Len(txtPLZ.Text) > 5 Then
   MsgBox "Die eingegebene PLZ ist nicht gültig"
   Exit Sub
 End If
 
 Dim rsZip As ADODB.Recordset
 Set rsZip = New ADODB.Recordset
 
 rsZip.Open "SELECT DISTINCT sCity FROM tc_ZIP WHERE sZipCode LIKE '" & _
     txtPLZ.Text & "%' ORDER BY sCity", Con, adOpenDynamic, adLockReadOnly
 
 If rsZip.EOF = True Then
   MsgBox "Die eingebene PLZ ist nicht bekannt"
   rsZip.Close
   Set rsZip = Nothing
   Exit Sub
 End If
 
 cmbOrt.Clear
 
 Do While rsZip.EOF = False
  cmbOrt.AddItem rsZip!sCity
  rsZip.MoveNext
 Loop
 
 rsZip.Close
 Set rsZip = Nothing
 
End Sub

Cu

Wolfgang