No puedo trabajar con bases de datos desde VB

[pabli]

Hola alarga,

te pongo un ejemplo sacado del MSDN, con este tipo de programación no necesitas el control data(es muy poco flexible)

Código:

Public Sub OpenX()

   Dim cnn1 As ADODB.Connection
   Dim rstEmployees As ADODB.Recordset
   Dim strCnn As String

   ' Abre una conexión.
      strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & S_ruta & "\tuBBDD.mdb;Persist Security Info=False"
   Set cnn1 = New ADODB.Connection
   cnn1.Open strCnn
   
   ' Abre la tabla Empleados.
   Set rstEmployees = New ADODB.Recordset
   rstEmployees.CursorType = adOpenKeyset
   rstEmployees.LockType = adLockOptimistic
   rstEmployees.Open "empleado", cnn1, , , adCmdTable

   ' Asigna la fecha de contratación del registro del primer empleado
   ' a una variable y, después, cambia la fecha de contratación.
   varDate = rstEmployees!hire_date
   Debug.Print "Datos originales"
   Debug.Print "  Nombre – Fecha de contratación"
   Debug.Print "  " & rstEmployees!fName & " " & _
      rstEmployees!lName & " - " & rstEmployees!hire_date
   rstEmployees!hire_date = #1/1/1900#
   rstEmployees.Update
   Debug.Print "Datos que han cambiado"
   Debug.Print "  Nombre – Fecha de contratación"
   Debug.Print "  " & rstEmployees!fName & " " & _
      rstEmployees!lName & " - " & rstEmployees!hire_date

   ' Vuelve a consultar el objeto Recordset y restablece la 
   ' fecha de contratación.
   rstEmployees.Requery
   rstEmployees!hire_date = varDate
   rstEmployees.Update
   Debug.Print "Datos después de restablecer."
   Debug.Print "  Nombre – Fecha de contratación"
   Debug.Print "  " & rstEmployees!fName & " " & _
      rstEmployees!lName & " - " & rstEmployees!hire_date

   rstEmployees.Close
   cnn1.Close

End Sub

AQUÍ está el problema para el código que he puesto aplicado a tu caso:

"Provider=Microsoft.Jet.OLEDB.4.0"

este es el proveedor para acceder a través de OLEDB a ACCESS 2000. También se podría acceder a través de ODBC. Pero lo que a tí te interesa es que pongas ahí el proveedor adecuado para la versión 2003, si no, no la vas a abrir.
Intenta instalarte el último MDAC, creo que va por la versión 9, o sea las librerías de acceso a datos de Microsoft. Busca en la web de Ms en la zona de descargas...

Saludos
Pablo