Enlazar aplicación en VB con BD MySQL

Lo primero y más importante, muchas gracias de antemano por compartir tus conocimientos.
Tengo el código fuente de una aplicación creada en visual basic 6, la cual graba registros de huellas dactilares y unos datos en una base de datos de access. También tiene un modo de reconocimiento, es decir, sólo con poner el dedo en el lector de huella reconoce a quién pertenece.
El caso es que necesito modificar dicha aplicación, para que en vez de guardar y leer los datos de una BD en access lo haga con una en MySQL. El motivo es que leen y guardan datos desde más de una pc a la vez en una LAN.
Este es el código entero del proyecto:
---------
Private Sub AreaGuardar_Change()
ChecaGuardar
End Sub
Private Sub btn_Guardar_Click()
Set Resultado = BD.OpenRecordset("SELECT * FROM fichas alumnos")
With Resultado
.AddNew
.Fields("Nombre") = NombreGuardar
.Fields("1er Apellido") = AreaGuardar
.Fields("Huella Digital 1") = template(1).tpt
.Fields("Huella Digital2") = template(2).tpt
.Update
End With
MsgBox "Huellas guardadas"
Imagen(1).Picture = LoadPicture()
Imagen(2).Picture = LoadPicture()
NombreGuardar = ""
AreaGuardar = ""
Imagen_Click 1
End Sub
Private Sub Command1_Click()
BD.Execute "DELETE FROM usuarios"
MsgBox "Ok"
End Sub
Private Sub Form_Load()
Dim Error As Integer
Set BD = OpenDatabase(App.Path & "c:\documents and settings\abel palmero\mis documentos\fichas.mdb")
' Inicializar
Error = Inicializar(Form1)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
BD.Close
Set BD = Nothing
End Sub
Private Sub ChecaGuardar()
If Imagen(1) <> 0 And Imagen(2) <> 0 And NombreGuardar <> "" And AreaGuardar <> "" Then
btn_Guardar.Enabled = True
Else
btn_Guardar.Enabled = False
End If
End Sub
Private Sub Imagen_Click(Index As Integer)
ImagenNumero = Index
If Index = 1 Then
Shape1.Left = 250
Else
Shape1.Left = 2530
End If
End Sub
Private Sub GrFingerXCtrl1_ImageAcquired(ByVal idSensor As String, ByVal width As Long, ByVal height As Long, rawImage As Variant, ByVal res As Long)
' Capturar Imagen (Este mensaje es muy raro que se vea. Si se muestra pero muy rapido)
Mensajes = "Capturando imagen..."
With raw
.img = rawImage
.height = height
.width = width
.res = res
End With
If OptionGuardar.Value = True Then
CapturaHuella False, GR_DEFAULT_CONTEXT, Form1, Form1.Imagen(ImagenNumero), ImagenNumero
If EncuentraPuntos(Form1, Mensajes, Imagen(ImagenNumero), ImagenNumero) = True Then
' Aqui entra si la Imagen se detecta bien
If ImagenNumero = 1 Then
Imagen_Click 2
Else
Imagen_Click 1
End If
End If
ChecaGuardar
End If
If OptionVerificar.Value = True Then
CapturaHuella False, GR_DEFAULT_CONTEXT, Form1, Form1.Imagen(3), 3
If EncuentraPuntos(Form1, Mensajes, Imagen(3), 3) = True Then
' El numero 3 es por el Template que es el numero 3
CambiaFoco Identificar(Form1, 3, Form1.NombreVerificar, Form1.AreaVerificar)
End If
End If
End Sub
Private Sub GrFingerXCtrl1_SensorPlug(ByVal idSensor As String)
' Inicializar la Captura del dispositivo
GrFingerXCtrl1.CapStartCapture (idSensor)
End Sub
Private Sub GrFingerXCtrl1_SensorUnplug(ByVal idSensor As String)
' Finalizar la Captura del dispositivo
GrFingerXCtrl1.CapStopCapture (idSensor)
End Sub
Private Sub GrFingerXCtrl1_FingerDown(ByVal idSensor As String)
' Aquí detecta cuando pones el dedo (Este mensaje es muy raro que se vea. Si se muestra pero muy rapido)
Detector = "Huella detectada"
End Sub
Private Sub GrFingerXCtrl1_FingerUp(ByVal idSensor As String)
' Aqui detecta cuando quitas el dedo
Detector = "Huella removida"
End Sub
Private Sub NombreGuardar_Change()
ChecaGuardar
End Sub
Private Sub OptionGuardar_Click()
OcultarFrames
FrameGuardar.Visible = True
End Sub
Private Sub OcultarFrames()
FrameGuardar.Visible = False
FrameVerificar.Visible = False
Detector = ""
Mensajes = ""
Imagen(1).Picture = LoadPicture()
Imagen(2).Picture = LoadPicture()
Imagen(3).Picture = LoadPicture()
Imagen_Click 1
End Sub
Private Sub OptionVerificar_Click()
OcultarFrames
FrameVerificar.Visible = True
End Sub
Private Sub CambiaFoco(Color As Integer)
If Color = 1 Then
Foco.BackColor = &HFF00&
Else
Foco.BackColor = &HFF&
End If
End Sub
---------
Si fueras tan amable de indicarme que es lo que habría de modificar, te estaría muy agradecido.
Si necesitas que te envíe los archivos del proyecto, comunícamelo.