[Resolvido] Conexão MySql

Não sei se este é o lugar certo para postar esta dúvida mas vai assim mesmo

Tenho instalado o MYSQL 5 e estou tentando fazer a conexão ADO no VB não consigo de jeito algum. Alguém poderia me ajudar?

Dim conn As ADODB.Connection

Set conn = CreateObject("ADODB.Connection")

With conn

.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _

& "SERVER=localhost;" _

& " DATABASE=gps_report;" _

& "UID=acesso;PWD=koleta186; OPTION=3"

.Open

End With