Public Sel                      As ADODB.Recordset
    Public cnDatenbank    As ADODB.Connection
 
    Set cnDatenbank = New ADODB.Connection
 
    cnDatenbank.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                & "SERVER=" ";" _
                & "DATABASE=;" _
                & "UID="  ";" _
                & "Password="  ";" _
                & "OPTION=16384"
 
    cnDatenbank.CursorLocation = adUseClient
    cnDatenbank.Open

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

Auswahl ("Select * From Customer_Master" ' where SatzNr='" & SatzNr.Text & "'")