Modulo de Conexión a MySQL con Visual Basic 6

Bien, las bases de datos ahora ya me gustan un monton y en especial manipularlas con alguna aplicación hecha en Visual Basic 6, asi ke aki les dejo un modulo de conexion para ke en kada formulario no tengan ke hacer una conexión a la base de datos.

1.- Ya saben, es necesario el ODBC 3.51 para poder conectar visual basic 6 y mysql.
2.- Son necesarios los objetos ADODB, uno para la conexion y otro será de tipo recordset para manipular nuestras tablas y sus campos.
3.- La parte ke dice "DRIVER={MySQL ODBC 3.51 Driver..." es la cadena de conexión en ubicará la base de datos que en este kaso es biblioteca, con usuario root y sin password, aunke esto depende de los usuarios y contraseñas ke diste a tu srevidor MySQL
4.- El modulo será llamado en cada formulario, yo específicamente lo llamo en el evento load del formulario.

Public db As ADODB.Connection
Public tabla As ADODB.Recordset
-------------------------------------------
Public Sub Conexion()
' Realiza la conexion con la base de datos
On Error GoTo msgError
Set db = New ADODB.Connection
Set tabla = New ADODB.Recordset
db.CursorLocation = adUseClient
db.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=biblioteca;UID=root;PWD=;"
db.Open
Exit Sub
msgError:
MsgBox Err.Number & " - " & Err.Description, vbCritical, "Error"
End Sub

Espero ke les sirva.