Public cnDatenbank    As ADODB.Connection
 
    ' DB öffnen
 
    Set cnDatenbank = New ADODB.Connection
 
    cnDatenbank.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                & "SERVER=localhost;" _
                & "DATABASE=Datenbankname;" _
                & "UID=root;" _
                & "Password=;" _
                & "OPTION=16384"
 
    cnDatenbank.CursorLocation = adUseClient
    cnDatenbank.ConnectionTimeout = 0
    cnDatenbank.Open

Public Sel             As ADODB.Recordset 'Das Hauptrecordset
 
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
Public Sub

Auswahl "Select * from Datenbank"
Do while not Sel.Eof = True
    print Sel.Field("Feld").Item
    Sel.MoveNext
Loop