problemas para agregar y modificar datos

Daniel
17 de Marzo del 2005
Hola....
Soy nuevo en esto de la programacion de VB y estoy dando mis primeros pasos en ella. Desearía que alguno de ustedes pudiera ayudarme así puedo continuar en el mundo de la programacion de VB pues por ahora estoy atascado en un problemita...
He creado un formulario que contiene un ADO data control las propiedades del mismo son
nombre: adoagrecli
connectionString: FILE NAME=C:BALANCEvinbdbrvv.mdl.UDL
RecordSource: Select * from clientes
CursorLocation : adUseClient
CursorType : adOpenDynamic
LockType : adLockOptimistic

En el formulario ademas puse 5 TextBox las propieades de los mismos son:
DataSource : adoagrecli
el el DataFiel de cada textBox cambia de acuerdo al campo que quiera mostrar
DataField : nomcli

cuando ejecuto todo bien.. el problema es cuando quiero agregar un registro
para ello agrege un CommandButton
llamado cmdagregar
cuando hago click en él se ejecuta esto

Private Sub Cmdagregar_Click()
Dim cadenacuit As String
cadenacuit = Txtagregarclientecuit.Text
With adoagrecli.Recordset
.MoveFirst
.Find "cuitcli=" & cadenacuit, 0, adSearchForward
If .EOF Then
.AddNew
.Fields("cuitcli") = Txtagregarclientecuit.Text
.Fields("nomcli") = Txtagregarclientenombre.Text
.Fields("dircli") = Txtagregarclientedireccion.Text & ""
.Fields("telcli") = Txtagregarclientetelefono.Text & ""
.Fields("inbcli") = Txtagregarclienteingbru.Text & ""
.Update
Else
MsgBox "Cliente existente - verifique", vbExclamation, "Atención"
End If
End With
End Sub

y aqui se detiene el programa y me sale un error con el siguiente mensaje: " error 91 en tiempo de ejecucuion - variable de tipo Oject o la variable de bloque wjth no está establecida" y se detiene en la linea de código siguiente
.MoveFirst

aqui mi pregunta como soluciono este error?, agradeceria muchisimo su ayuda

tambien agrege un CommandButton
llamado cmdmodificar
cuando hago click en él se ejecuta esto

Private Sub Cmdmodificar_Click()
Dim cadenacuit As String
cadenacuit = Txtagregarclientecuit.Text
With adoagrecli.Recordset
.MoveFirst
.Find "cuitcli=" & cadenacuit, 0, adSearchForward
If .EOF Then
MsgBox "No se encuentra el registro", vbExclamation, "Atención"
Else
.Edit
.Fields("cuitcli") = Txtagregarclientecuit.Text
.Fields("nomcli") = Txtagregarclientenombre.Text
.Fields("dircli") = Txtagregarclientedireccion.Text & ""
.Fields("telcli") = Txtagregarclientetelefono.Text & ""
.Fields("inbcli") = Txtagregarclienteingbru.Text & ""
.Update
End If
End With
End Sub

a este no lo he probado pero quería preguntarles si está bien para que no me de error.

desde ya muchas gracias Daniel

dra
17 de Marzo del 2005
Si trabajas con ado lo primeros que tienes que hacer antes de cargar cualquier cosa es mandalo a refrescar con la propiedad refler o algo asi