Dim k, p As String
        Dim dr As DataRow()
        Try
            k = txtbKürzel.Text
            p = txtbPasswort.Text
 
             'Benutzer über Kürzel raussuchen
            dr = clsMain.ds.Tables("benutzer").Select("Kuerzel=" & k)

            Dim ID As String
            Dim dr2 As DataRow()
 
            'Dazugehörige Lotnummern sammeln
            dr2 = clsMain.ds.Tables("lotnr").Select("ID_Auftrag=" & ID)