MySQL com OLE sem ODBC

[JSavio]

Alguém sabe como faço para fazer uma conexão com MySQL usando OLE (sem ODBC)?

Semelhante a que fiz para o SQL Server abaixo:

Dim DBconn As New ADODB.Connection

Dim RS As New ADODB.Recordset

Dim SQL As String

DBconn.Open "Provider=SQLOLEDB;Data Source=MyConnection;Initial Catalog=MyDB;User Id=MyUser;Password=MyPwd;"

SQL = "select * from tabela"

Set RS = DBconn.Execute(SQL)

Do Until RS.EOF

MsgBox RS("campo")

RS.MoveNext

Loop

Tenho outra dúvida também: postada como DLL + SQL Server.

[Alex Lugon]

Eu utilizo o DBMySQLDirect é muito bom

Alguém sabe como faço para fazer uma conexão com MySQL usando OLE (sem ODBC)?

Semelhante a que fiz para o SQL Server abaixo:

Dim DBconn As New ADODB.Connection

Dim RS As New ADODB.Recordset

Dim SQL As String

DBconn.Open "Provider=SQLOLEDB;Data Source=MyConnection;Initial Catalog=MyDB;User Id=MyUser;Password=MyPwd;"

SQL = "select * from tabela"

Set RS = DBconn.Execute(SQL)

Do Until RS.EOF

MsgBox RS("campo")

RS.MoveNext

Loop

Tenho outra dúvida também: postada como DLL + SQL Server.

Ops.: VBMySQLDirect neste link você encontra. http://www.vbmysql.com/projects/vbmysqldirect