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
    End With
End Sub