[Microsoft][ODBC Driver Manager] Der Datenquellenname wurde nicht gefunden, und _
  es wurde kein Standardtreiber angegeben

Dim oConn As ADODB.Connection
Set oConn = New ADODB.Connection
Dim oRS As Recordset
Set oRS = New ADODB.Recordset
Dim sConn As String
Dim sServer As String
Dim sUserName As String
Dim sPassword As String
Dim sDBName As String
sServer = "www.server.net"
sUserName = "asd"
sPassword = "m"
sDBName = "Klasse"
sConn = "Provider=MSDASQL;Driver=MySQL;" & _
        "Server=" & sServer & ";Database=" & sDBName

____________________________________