Public cnDatenbank As ADODB.Connection
 
    ' SQL öffnen
 
    Set cnDatenbank = New ADODB.Connection
 
    cnDatenbank.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                & "SERVER=" & GetSetting("VOptNeu", "Firmendaten", "Server") & _
                ";" _
                & "DATABASE=voptneu;" _
                & "UID=;" _
                & "Password=;" _
                & "OPTION=16384"
 
    cnDatenbank.CursorLocation = adUseClient
    cnDatenbank.ConnectionTimeout = 0
    cnDatenbank.Open

Public Sel As ADODB.Recordset
 
Public Sub Auswahl(SQL As String, Optional Fehlerueberwachung As Boolean = _
  False)
 
    ' 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

        Dim connectionString As String = "DRIVER={MySQL ODBC 3.51 Driver};" _
                    & "SERVER=" & GetSetting("VOptNeu", "Firmendaten", _
                    "Server") & ";" _
                    & "DATABASE=voptneu;" _
                    & "UID=;" _
                    & "Password=;" _
                    & "OPTION=16384"
 
        Dim cnDatenbank As New Data.Odbc.OdbcConnection(connectionString)
        cnDatenbank.Open()