Gut...hier erstmal der Code:
Private Sub Form_Load()
MsgBox "Willkommen bei Wakeup Maike, dem etwas anderen Chatsystem

"
' Connection-String festlegen
Dim oConn As New ADODB.Connection
Dim sConn As String
Dim sServer As String
Dim sUserName As String
Dim sPassword As String
Dim sDBName As String
' Server Hostname (oder IP)
sServer = "mysql.lima-city.de"
' Benutzerdaten
sUserName = "USER26252"
sPassword = "*******"
' Datenbank-Name
sDBName = "DB1116949315"
sConn = "Provider=MSDASQL;
Driver=MySQL;" & _"Server=" & sServer & "

atabase=" & sDBName
' Connection öffnen
[...]
Ich musste nur bei sConn einen Eintrag mehr machen der den Treiber angibt!
sConn = "Provider=MSDASQL.1

RIVER={MySQL Connector/ODBC v5};Server=" & sServer & "

atabase=" & sDBName
...