Cita:
Iniciado por spiderman78 
Gracias por la explicacion
Simple si te pudiste conectar tendrias quetener algo parecido a
Código:
Dim Conex As New ADODB.Connection
Conex.Open "DRIVER={MySQL ODBC 3.51 Driver};UID=root;PWD=Password;DATABASE=BaseDeDatos"
Ahora bien deberias haber declarado un RecordSet sea o no con soporte para eventos
Código:
Dim WithEvents RecordSet As ADODB.RecordSet
Set RecordSt = New ADODB.Recordset
RecordSet.CursorLocation = adUseServer
RecordSet.CursorType = adOpenKeyset
RecordSet.LockType = adLockOptimistic
RecordSet.Source = "latabla"
RecordSet.Open "INSERT INTO latabla (Id,Nombre,Apellido) VALUES (1,"JUAN","PEREZ")
Ya estarias insertando valores en tu recordset.
Saludos y suerte
Agur!