Hola amigos del foro
necesito urgente que alguien me ayude con un error que tengo en mi codigo de visual y no logro entender a que se debe, aqui les dejo el codigo para que porfavor me ayuden y me digan a que se debe:
ERROR '-2147217913 (80040E07)' en tiempo de ejecucion: no coinciden los tipos de datos en la expresion de criterio
Private Sub Asignar_Datos()
rutclienteingreso = txtRutCliente.Text
dvclienteingreso = txtdvcliente.Text
rs.Open "select * from datoscliente where rutcliente = '" & txtRutCliente.Text & "'", cnn, adOpenKeyset, adLockOptimistic
If rs.BOF = True And rs.EOF = True Then
rs.AddNew
rs("RutCliente") = txtRutCliente.Text
rs("DvCliente") = txtdvcliente.Text
rs("NombreCliente") = txtNombreCliente.Text
rs("DireccionCliente") = txtDireccionCliente.Text
rs("FonoCliente") = txtTelefonoCliente.Text
rs("CorreoCliente") = txtCorreoCliente.Text
Else
rs.MoveFirst
If rs("rutcliente") = txtRutCliente.Text Then
MsgBox ("Rut de cliente ingresado ya existe"), vbInformation
rs.MoveNext
Else
rs.AddNew
rs("RutCliente") = txtRutCliente.Text
rs("DvCliente") = txtdvcliente.Text
rs("NombreCliente") = txtNombreCliente.Text
rs("DireccionCliente") = txtDireccionCliente.Text
rs("FonoCliente") = txtTelefonoCliente.Text
rs("CorreoCliente") = txtCorreoCliente.Text
End If
End If
gracias saludos
