VBA Script zum Zugriff auf MYSQL Datenbank mit ado

Private Sub CommandButton1_Click()
' PLEASE DO THE FOLLOWING BEFORE EXECUTING CODE:
' 1)In VBE you need to go Tools/References and check Microsoft Active X Data Objects 2.x  _
library
' 2)Install MySQL ODBC 3.51 Driver. See dev.mysql.com/downloads/connector/odbc/3.51.html or  _
_
_
google "MySQL ODBC 3.51 Driver"
Dim conn As New ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "DRIVER={MySQL ODBC 3.51 Driver}" _
& ";SERVER=" & "server" _
& ";DATABASE=" & "exceltest" _
& ";UID=" & "exceltester" _
& ";PWD=" & "xxx" _
& ";OPTION=16427" ' Option 16427 = Convert LongLong to Int: This just helps makes sure that  _
_
_
large numeric results get properly interpreted
SQLStr = "INSERT INTO exceltest.excel (name) VALUES('yeah;');"
conn.Execute SQLStr
conn.Close
Set conn = Nothing
MsgBox "done"
End Sub

Private Sub CommandButton1_Click()
' PLEASE DO THE FOLLOWING BEFORE EXECUTING CODE:
' 1)In VBE you need to go Tools/References and check Microsoft Active X Data Objects 2.x  _
library
' 2)Install MySQL ODBC 3.51 Driver. See dev.mysql.com/downloads/connector/odbc/3.51.html or  _
_
_
google "MySQL ODBC 3.51 Driver"
Dim conn As New ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "DRIVER={MySQL ODBC 3.51 Driver}" _
& ";SERVER=" & "server" _
& ";DATABASE=" & "exceltest" _
& ";UID=" & "exceltester" _
& ";PWD=" & "xxx" _
& ";OPTION=16427" ' Option 16427 = Convert LongLong to Int: This just helps makes sure that  _
_
_
large numeric results get properly interpreted
sql = "SELECT * From exceltest.excel;"
Set rs = conn.Execute(sql)
' output to sheet named "Tabelle2"
Dim i as Long
i = 2 ' start at row 2 as the headers will be on row 1
Sheets("Tabelle2").Activate
ActiveSheet.Cells(1,1).Value = "Name"
Do While Not rs.EOF
With ActiveSheet
.Cells(i, 1).Value = rs.Fields(0).Value
End With
i = i + 1 ' move to the next row
Loop
rs.Close
conn.Close
Set conn = Nothing
MsgBox "done"
End Sub