Acessar Mysql Com Adodb

[fpasqueto]

ola amigos estou tendo problemas pra usar um exemplo de conexao a mysql

ele usa ADODB mas não consegui ativar esse componente em meu projeto

exemplo:

Dim user As String, senha As String, IP As String, porta As String, bancodedados As String

Public oDB As ADODB.Connection

Public Sub abrirconexao()

Dim xl As New Excel.Application

Dim xlw As Excel.Workbook

Set xlw = xl.Workbooks.Open("d:\siaf\parametros.xls")

xlw.Sheets("Plan1").Select

bancodedados = xlw.Application.Cells(1, 2).Value

IP = xlw.Application.Cells(2, 2).Value

porta = xlw.Application.Cells(3, 2).Value

xlw.Close False

Set xlw = Nothing

Set xl = Nothing

Dim oDB_Conect As String

Set oDB = New Connection

'bancodedados = "siaf"

'IP = "200.101.39.83"

'porta = "3306"

user = "root"

senha = "123"

oDB_Conect = "DRIVER={MySQL ODBC 3.51 Driver}; " _

& "SERVER= " & IP & "; " _

& "PORT= " & porta & "; " _

& "DATABASE= " & bancodedados & "; " _

& "UID= " & user & "; " _

& "PWD= " & senha & "; " _

& "OPTION= 1 + 2 + 8 + 32 + 2048 + 16384 "

With oDB

.CursorLocation = adUseClient

.ConnectionString = oDB_Conect

.Open oDB_Conect

End With

End Sub

mas na hora q executo o aplicativo da erro nessa linha Public oDB As ADODB.Connection e fiz um teste eu digito Public oDB As ADODB. ele não me da a lista de comandos pra esse componente, já procurei o danado e não achei

se alguém puder me ajudar com mais essa..

[Graymalkin]

Na opção References do menu Project você não encontrou o ADO? O nome dele é "Microsoft ActiveX Data Objects 2.x Library".

Abraços,

Graymalkin