Dim sDBFeld As String
Dim SQL As String
 
sDBFeld = frmMain.lstKatalogname.Text 
 
<font color=green>' alle Datensätze, bei denen im Feld "KATALOG" ein Inhalt _
  vorhanden ist</font>
SQL = "SELECT Nummer FROM Professional WHERE " & sDBFeld & " NOT Is Null AND " _
& sDBFeld & " <> ''"

Dim sLookFor As String
Dim sDBFeld As String
Dim SQL As String
 
sDBFeld = frmMain.lstKatalogname.Text
sLookFor = txtSearch.Text
 
<font color=green>' alle Datensätze bei denen im Feld "KATALOG" ein bestimmter _
  Inhalt vorhanden ist</font>
SQL = "SELECT Nummer FROM Professional WHERE " & sDBFeld & " = '" & sLookFor & _
"'"