Uitliza esta conexion.


Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim sql As String

  'connect to MySQL server using MySQL ODBC 3.51 Driver
  Set conn = New ADODB.Connection
  conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
  & "SERVER=(DIR_IP)172.17.13.4;" _
  & "DATABASE=(nombre_base)DBEDUCACION;" _
  & "UID=(pasword)andresft;" _
  & "PWD=;(contraseña)" _
  & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
  conn.CursorLocation = adUseClient
  conn.Open

Set rs = New ADODB.Recordset

rs.Open "SELECT * FROM usuario", conn