Public Sub Auswahl (SQL As String)
    'Escape Sequenzen abfangen und korrigieren!
    'doppeltes Anführungszeichen
    SQL = Replace(SQL, Chr(34), "\" & Chr(34), 1)
    'Backslash
    SQL = Replace(SQL, "\", "\\", 1)
 
    If Fehlerueberwachung = True Then
        On Error Resume Next
    Else
        On Error GoTo 0
    End If
 
    Set Sel = New adodb.Recordset
 
    With Sel
        'Öffnen der Tabelle mit dem angegebenen SQL-String
        .Open SQL, cnDatenbank, adOpenDynamic, adLockOptimistic
    End With
 
    On Error GoTo 0
 
End Sub