Const sConStr = "Provider=MSDASQL;Driver={MySQL ODBC 3.51" & _
  "Driver};Server=Server-2003;UID=Peter;PWD=KerniG;database=Test;"
 
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sSelect As String
 
'*** Erstellen und Konfigurieren der DB Connection ***
 
 Set  cn = New ADODB.Connection              'Erzeugen des Connection Objektes
 
With adocn
  .ConnectionString = sConStr  'Verbindungsstring abhänig vom Sql Typ ( 
  ' MSSql,MYSQL)
  .CommandTimeout = 50         ' Timeout settings
  .ConnectionTimeout = 20        ' Timeout settings
  .CursorLocation = adUseServer 
  .Open                                            'Verbindung öffnen 
End With
 
Set  rs = New ADODB.Recordset                         ' Erzeugen des Recordsets 
' Objektes
 
sSelect = "SELECT * FROM TBL_Test"               'Formulieren der SQL Abfrage
 
rs.Open sSelect, cn, adOpenDynamic, adLockOptimistic
 
 
'Hier kannst du dann den Recordset verarbeiten
 
'Zuerst den Recordset schließen dann die Verbindung
rs.close
cn.close

**********************************************************************
* Glauben ist gut aber ab und zu sollte man auch was wissen *
**********************************************************************