Dim Conectar As ADODB.Connection
Dim Recorrer3 As ADODB.Recordset
Dim guardar As ADODB.Recordset
Dim Sql As String
Private Sub btn_ingresos_Click()
guardar.AddNew
guardar!fecha = Text_fechas.Text
guardar!proveedor = Combo1.Text
guardar!camiones = Val(Text_camiones.Text)
guardar!volumen = Val(Text_volumen.Text)
guardar!totalcamion = Text_totalc.Text
guardar!totalvolumen = Text_totalv.Text
MsgBox (" Datos Ingresados Correctamente")
guardar.Update
End Sub
Private Sub btn_total_Click()
Text_totalc = Val(Text_volumen) + Suma
End Sub
Private Sub Combo1_GotFocus()
Recorrer3.MoveFirst
Do While Not Recorrer3.EOF
Conectar.Execute (Sql)
Combo1.AddItem (Recorrer3!nombre_proveedor)
Recorrer3.MoveNext
Loop
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Sql = " Select * from proveedor"
conexion = "Microsoft.Jet.OLEDB.4.0;Data Source=C:\sistema3.mdb;Persist Security Info=False"
Set Conectar = New ADODB.Connection
Conectar.Provider = conexion
Conectar.Open
Set guardar = New ADODB.Recordset
Set Recorrer3 = Conectar.Execute(Sql)
guardar.CursorType = adOpenDynamic
guardar.LockType = adLockOptimistic
guardar.Open "ingresos", Conectar, , , adCmdTable
End Sub
Me sale un error que dice que no corresponde a la coleccion de objetos y resulta que el nombre se llama igual en el textbox y en la base de datos
