Ayuda con refresh

[hunabku]

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

[Improvisado]

Hola
¿Despues de guardar le realizas el refresh, requery o resync al recordset que utilizas para la consulta?
Esto seria para que te actualice los datos.
saludos

[hunabku]

Iniciado por Improvisado

Hola
¿Despues de guardar le realizas el refresh, requery o resync al recordset que utilizas para la consulta?
Esto seria para que te actualice los datos.
saludos

El problema es que cuando guardo mi registro y despues quiero irme al registro siguient econ el movnext no lo hace

[Improvisado]

De nuevo, no se como lo estas haciendo pero yo haría mas o menos así

cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.execute ("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 & " ' )")

rs.requery

Pero no se si se ajusta a lo que necesitas

[hunabku]

Iniciado por Improvisado

De nuevo, no se como lo estas haciendo pero yo haría mas o menos así

cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.execute ("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 & " ' )")

rs.requery

Pero no se si se ajusta a lo que necesitas

Lo acabo de intentar asi pero al darle en el boton de siguiente despues de haber guardado un registro ya no me permite movimiento alguno