Problema con formulario de Access

[Mortuus666]

Hola a todos.

Verán, estoy creando una base de datos y me gustaría crear unos formularios para añadir registros

De momento tengo una tabla proveedores con dos campos: cod_proveedor y nombre_proveedor.

En un formulario con dos campos de texto (codProv y nomProv) he añadido un botón (agregar) y he vinculado en su evento Click el siguiente código:

Código vb:

Option Compare Database
Private cnn As ADODB.Connection
Private rsTProv As ADODB.Recordset
 
 
 
Private Sub agregar_Click()
On Error GoTo Err_agregar_Click:
'Abrir recordset
rsTProv.Open "SELECT * FROM PROVEEDORES", cnn, adOpenKeyset, adLockPessimistic
rsTProv.MoveLast
rsTProv.AddNew
 
'Asignar contenido de nomProv al campo correspondiente
nomProv.SetFocus
rsTProv!nombre_proveedor = nomProv.Text
 
'Asignar contenido de codProv al campo correspondiente
codProv.SetFocus
rsTProv!cod_proveedor = codProv.Text
 
'Actualizar la informacion de la tabla
rsTProv.Update
 
'Poner los campos en blanco para seguir añadiendo
MsgBox ("Proveedor " & nomProv.Text & " dado de alta")
nomProv.SetFocus
nomProv.Text = ""
codProv.SetFocus
codProv.Text = ""
 
 
'Cerrar recordset
rsTProv.Close
Form.Requery
 
 
Err_agregar_Click:
MsgBox ("Se ha producido un error.")
Exit Sub
End Sub
 

También tengo un Form_Load():

Código vb:

Private Sub Form_Load()
 
    Set cnn = New ADODB.Connection
    Set rsTProv = New ADODB.Recordset
    
    cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cnn.ConnectionString = CurrentDb.Name
    cnn.Open
End Sub
 

Me da el siguiente error: "No se ha definido el tipo definido por el usuario"


El error me salta en los eventos Click y Load, y no logro encontrar el porque.

Gracias de antemano!

[pana99]

Hola, eso te sucede porque te falta agregar la referencia al componente para manejar la conexion
Desde Proyecto, referencias, agrega Microsoft ActiveX Data Objects 2.5 ...........
Con eso no te va a dar este error
Espero te sirva.