On Error GoTo Err
 
sql = "SELECT * From Artikel Where " 'SELECT ... - FROM Abschnitt
 
'WHERE Abschnitt
sql = sql + Choose(cmbSuchen_in.ListIndex + 1, "Artikelnummer", "Artikelname", _
  "Warengruppe", _
                                               "Bestellnummer", "Verkaufspreis")
 
'LIKE Abschnitt
sql = sql + " Like '" + xpTextSuchbegriff.Text + "*'"
 
 
sql = sql + " ORDER BY " 'ORDER BY Abschnitt
sql = sql + Choose(cmdSotieren_nach.ListIndex + 1, "Artikelnummer", _
  "Artikelname", "Warengruppe", _
                                                   "Bestellnummer")
 
 
With frmAuswahlliste
    .Data1.RecordSource = sql ' SQL String an Data1 übergeben damit die Daten 
    ' ausgegeben werden können
    .Data1.Refresh
 
    If .Data1.Recordset.RecordCount = 0 Then ' Falls kein Eintrag gefunden wird 
    ' ...
        MsgBox "In der Artikeldatenbak ist kein entsprechender Artikel" & _
          "gespeichert!", vbInformation, "SUCHEN" 'MSGBOX
        xpTextSuchbegriff.Text = Empty 'vorherige Eingabe löschen
        xpTextSuchbegriff.SetFocus 'Focus auf Suchbegriff Textbox
 
    Else
 
        Unload frmSearch 'Beenden des Formulars [Search]
        frmAuswahlliste.Show 'Anzeigen des Formulars [Auswahlliste]
 
    End If
 
End With
Exit Sub
 
Err:
End Sub

Mfg MyD