Saludos tengo un problema tengo una aplicacion en vb 6, con una conexion ADO y su base de datos SQL Server 2000, en la aplicacion todo esta bien perfecto tengo unos botones de adelante y funcona de maravilla peru cuando oprim el boton de guardar nuevo registro y luego quiero darle adelante no me hace nada:
el boton d e adelante lo tengo asi
On Local Error Resume Next
Err = 0
Select Case Index
Case cSiguiente ' Siguiente
rs.MoveNext
End Select
If Err Then
Debug.Print Err.Description
End If
Err = 0
y en mi boton de guardar tengo esto
cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.CommandText = "insert into pagos (expediente,contrato,fecha_paplicado,fecha_pago,mo nto,banco,fax,usuario,fecha_mov,asignacion) values ( '" & txtexpediente.Text & "','" & txtcontrato.Text & "','" & txtfecha_paplicado.Text & "','" & txtfecha_pago.Text & "'," & txtmonto.Text & ",'D','" & txtfax.Text & "','" & frmnisan.lblUsuario.Caption & "','" & lblfecha.Caption & "','" & dtpasignacion.Value & " ' )"
Set rs = cmd.Execute()
MsgBox "Registro Guardado", vbInformation, "Aviso"
Pero despues de oprimir ese boton y quere darle al siguiente registro no me hace nada alguien sabra algo al respecto
