[VB6]usare ADODB per Mysql?

[vitna91]

Così puo funzionare??

Option Explicit 
Dim cn As ADODB.Connection  
Dim rs As ADODB.Recordset 
Public Stringa as String  

Public Sub connetti_db()  

Stringa = "DRIVER={MySQL ODBC 3.51   Driver};SERVER=localhost;DATABASE=test;USER=root;PASSWORD=123456789;OPTION=3;" 
Set cn = New ADODB.Connection 
Set rs = New ADODB.Connection 
cn.Open Stringa rs.Open "tabella", cn, 3, 3

End Sub