Hay miles de manuales por internet explicando este tema, pero bueno te pongo esto para que puedas empezar.
Insertas un command button en el form y copia este código
Código:
Dim Conexion As ADODB.Connection
Dim Rst As ADODB.Recordset
Option Explicit
Private Sub Command1_Click()
'Realizar consultas
Rst.Open "SELECT * FROM clientes"
MsgBox "Existen " & Rst.RecordCount & " clientes"
'Insertar en la tabla clientes
Conexion.Execute "INSERT INTO clientes SET nombre='pepe', apellidos='Perez', edad='31'"
'Modificar un registro
Conexion.Execute "UPDATE FROM clientes SET nombre='jose' WHERE id = ?" '<-- El id que corresponda, cuidado que si no lo pones, modificar toda la tabla
'Eliminar un registro
Conexion.Execute "DELETE FROM clientes WHERE id=?" '<-- El id que corresponda, cuidado que si no lo pones, elimina la tabla al completo
End Sub
Private Sub Form_Load()
Set Conexion = New ADODB.Connection
Set Rst = New ADODB.Recordset
'Sustituye servidor,user,password,bd con lo que tu tienes
Conexion.ConnectionString = "driver={MySQL ODBC 3.51 Driver};server=SERVIDOR;uid=USER;pwd=PASSWORD;database=BD;"
Conexion.Open
Rst.ActiveConnection = Conexion
Rst.CursorLocation = adUseClient
Rst.CursorType = adOpenDynamic
Rst.LockType = adLockBatchOptimistic
End Sub
Lo mas aconsejable es insertar las declaraciones en un modulo para que se pueda ejecutar desde cualquier parte de tu aplicación, cambiando el Dim por Public
Espero que te sirva.
Saludos.