For i = 0 To Rst.Fields.Count - 1
SQL = "SELECT * FROM ComList WHERE " & Text1.Text & "'"
Set Rst = Db.OpenRecordset(SQL)
If Not Rst.EOF And Not Rst.BOF Then
frmMain.Show
frmÜbersicht.List1.Selected(i) = True
Unload Me
Else
MsgBox "Keine Übereinstimmung gefunden!", vbOKOnly + vbExclamation, _
  Title:="Suchen"
End If
Next i