Private Sub Command1_Click()
 
txt_suchtext = b
 
    Do While Not tb.EOF
        tb.Seek = b
        If Not tb.NoMatch Then
                lst_suchen.AddItem tb!Artikelnummer & "  " & _
                  tb!Artikelbezeichnung
            Else
                MsgBox "Kein entsprechender Datensatz gespeichert."
            End If
        tb.MoveNext
    Loop
 
End Sub