Como se hace una onexion a una base de datos mysql desde VB6?

[xochitemol]

Public Sub conexion() 'establece conexion con la base de datos
If con.State = adStateOpen Then con.Close
Set con = Nothing
Set con = New ADODB.Connection
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=true;password=contraseña;User ID=usuario de la base de datos;Initial Catalog=nombre de la base de datos;Data Source=nombrede tu servidor"
con.Open
End Sub
esta es una funcion en un modulo .bas