Cannot query mysql from Microsoft Excel

[Teresa Uma]

This is my Excel Macro code. I am getting the error "[ODBC Driver manager] Data Source Name not found and no default driver specified". Can anyone help.

Where i should do my configuration ?


Dim cn As New ADODB.Connection
Dim strconn As String
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
strconn = "UID=" & tUserId & ";PWD=" & tpasswd & ";" & _
"driver={MySQL ODBC 3.51 Driver};" & _
"SERVER=servername;" & _
"DATABASE=" & DataBaseName & ";"
cn.Open strconn

Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic