Option Compare Database Private Sub cmdAbbrechen_Click() frm_OrtSuchen_PLZ = "" DoCmd.Close End Sub Private Sub cmdOK_Click() frm_OrtSuchen_PLZ = lst_Anzeige.SelectedItem DoCmd.Close End Sub Private Sub cmdSuchen_Click() Dim SQL As String Dim mydb As Database Dim rstOrt As Recordset Dim myListitem As ListItem SQL = "SELECT tbl_ORT.ORT_ID, tbl_ORT.ORT_NAME FROM tbl_ORT where " _ & "ORT_Name like '" & txtOrtName & "';" Set mydb = CurrentDb Set rstOrt = mydb.OpenRecordset(SQL, dbOpenDynaset) lst_Anzeige.ListItems.Clear If rstOrt.EOF = True Then MsgBox "Keine entsprechenden Datensätze vorhanden" Else Do While rstOrt.EOF = False Set myListitem = lst_Anzeige.ListItems.Add(, "k" + Format(rstOrt!ORT_ID), rstOrt!ORT_ID) myListitem.SubItems(1) = rstOrt!ORT_NAME rstOrt.MoveNext Loop End If rstOrt.Close End Sub Private Sub lst_Anzeige_DblClick() MsgBox lst_Anzeige.SelectedItem End Sub