[VB6]usare ADODB per Mysql?

[vitna91]

Ciao a tutti,
utilizzo questo codice per connettermi a un db access, mi servirebbe però caricare il db su un server e da quanto ho letto è difficile(forse imposssibile?) farlo con access. Quindi ho deciso di cambiare db e affidarmi a mysql... come devo modificare il codice per connettermi a mysql anzichè mdb?
Supponendo:
db : test
user: root
pass: 123456789

Grazie.

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

Public Sub connetti_db()  

Stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 
Stringa = Stringa & "db.mdb" 
Set cn = New ADODB.Connection 
Set rs = New ADODB.Recordset 
cn.Open Stringa 
rs.Open "tabella", cn, 3, 3 

End Sub