Private Sub Command1_Click()
 
  Dim SQL As String
  Dim AdrNr As Long
 
  ' Suchen-Dialog anzeigen
  Load frm_Suchanfrage
  With frm_Suchanfrage
    .Show 1
    SQL = .Tag
  End With
  Unload frm_Suchanfrage
 
  ' Wenn nicht auf "Abbrechen" geklickt wurde
  If SQL <> "" Then
    ' Auswahlliste anzeigen
    Load Form2
    With Form2
      .Data1.RecordSource = SQL
      .Data1.Refresh
 
      ' Ergebnis prüfen
      If .Data1.Recordset.RecordCount = 0 Then
        ' kein Eintrag gefunden
        AdrNr = 0
        MsgBox "In der Datenbank ist kein entsprechender " & _
          "Eintrag gespeichert!", 64, "SUCHEN"
      ElseIf .Data1.Recordset.RecordCount = 1 Then
        ' exakt 1 Eintrag, d.h. sofort anzeigen
        AdrNr = .Data1.Recordset("ID")
      Else
        ' mehrere Treffer, d.h. Liste anzeigen
        .Show 1
        AdrNr = .Tag
      End If
    End With
    Unload Form2
 
    ' wenn ein Eintrag aus der Liste ausgewählt wurde
    ' oder sowieso nur ein Treffer vorhanden war
    If AdrNr > 0 Then
      ' Adresse zur Bearbeitung anzeigen
      Tabelle.Index = "ID"
      Tabelle.Seek "=", AdrNr
      'Datensatz_Anzeigen
    End If
  End If
End Sub