how to moveprevious and movenext

[sanika150780]

Hi,

I have developed a small application in vb6 and access Actually i want to move through recordset i.e movenext and move previous but it always go to end of record.I have stuck up in this and not able to solve this problem.Please help me.Thanks in advance. I am using access database and following is my code.

Private Sub cmdnext_Click()
On Error Resume Next
 
    Set con = New ADODB.Connection
    Set rs = New ADODB.Recordset
    rs.Open "cust1", strcn
    While Not rs.EOF
        rs.MoveNext
        filldata
    Wend
End Sub
 
 
Private Sub cmdprevious_Click()
    rs.Close
    Set rs = New ADODB.Recordset
    rs.CursorType = adOpenStatic
    rs.CursorLocation = adUseClient
    rs.Open "cust1", strcn, adOpenStatic, adLockReadOnly, adCmdTable
    MsgBox rs.RecordCount
    rs.MovePrevious
 
    If Not rs.BOF = True Then
        rs.MoveFirst
        MsgBox ("This is first record")
 
    End If
filldata
end sub
 
Sub filldata()
    txtcode.Text = rs.Fields!code
    txtfullname.Text = rs.Fields!fullname
    cmbstatus.Text = rs.Fields!Status
    txtname.Text = rs.Fields!Name
    txtpobox.Text = rs.Fields!pobox
    txttel.Text = rs.Fields!offtel
End Sub

[iburyak]

Change adOpenStatic to adOpenDynamic

Good Luck.