Visual Basic - Como conectar VB6 con mysql?

Necesito migrar mis sistemas de Acces a my sql, quisiera saber cual es la forma mas facil para conectarse a mysql

Yo conecto a MySql asi :

De referencia yo tengo "Microsoft ActiveX Data Objects 2.5"

Private Conexion As ADODB.Connection
Private Resultado As ADODB.Recordset

Private Sub Form_Load()
Set Conexion = New ADODB.Connection
Set Resultado = New ADODB.Recordset

Conexion.CursorLocation = adUseClient
Conexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=Host/Ip;" _
& "DATABASE=BaseDeDatos;" _
& "UID=Usuario;" _
& "PWD=Password;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
Conexion.Open
End Sub

' Ovbiamente cambia los datos de host, bd, usuario y clave...

Por ejemplo de un codigo para sacar el ultimo id

' Sacar el Ultimo Numero
Resultado.Open "SELECT MAX(id) FROM tabla", Conexion

' Si lo encuentra pasarlo...
If Resultado.RecordCount > 0 Then
Mayor = CInt(Resultado.Fields(0))
Else
' Si no hay aun Registros.. asignarle el numero 0
Mayor = 0
End If

' Para los DELETE, INSERT se utiliza..

Conexion.Execute " "

Para mas informacion puedes checar los ejemplos de aqui :

http://www.vbmysql.com/samplecode