If Neu = True Then
            Auswahl ("Select * from KundenStamm")
            Sel.AddNew
        Else
            Auswahl ("Select * from KundenStamm where KundenID = '" & _
              lblKundenNummer.Caption & "'")
        End If
 
Public Sub Auswahl(SQL As String)
    Set Sel = New ADODB.Recordset
    With Sel
        'Öffnen der Tabelle mit dem angegebenen SQL-String
        .Open SQL, cnDatenbank, adOpenDynamic, adLockOptimistic
 
        'Abfrage, ob überhaupt etwas in der Tabelle gespeichert ist
        If .AbsolutePosition = -1 Then
 
        Else
            .MoveFirst
        End If
    End With
End Sub