Excel VBA MySQL-Datenbank anzeigen

Private Sub mysql_show()
Dim Cn As New ADODB.Connection
Dim Server As String
Dim database As String
Dim Username As String
Dim password As String
Dim tableDN As String
Dim sql As String
Server = "localhost"
database = "usr_webxxx-y"
Username = "webxxx"
password = "*******"
With Cn
'Meistens Cursor auf Client außer für SEHR große Arbeiten
.CursorLocation = adUseClient
' Sperrungen (hier keine bei Multiuser)
.Mode = adModeShareDenyNone
' DB-Provider
.Provider = "MSDASQL"
.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};" & _
"Server=" & CStr(Server) & ";UID=" & CStr(Username) & _
";PWD=" & CStr(password) & ";database=" & CStr(database) & _
";Option=3"
.Open
End With
End Sub