Can somebody help me in Navigation of recordset using ADO

[praveen79hebbar]

Hi,

I have written a code to navigate through the recordset using MoveFirst,Movenext,MovePrevious and MoveLast

i would like to fetch the records from the database and display it on a form in the textboxes.When i try to move from one record to another using MoveNext command it moves directly to the last record

Here is the code

Dim cn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Set cn1 = New ADODB.Connection
Set rs1 = New ADODB.Recordset
Const DBPATH = "C:\Documents and Settings\hebbark\Desktop\democlaims.mdb"
Dim stfl As String
Dim fl As String
fl = "\democlaims.mdb"
stfl = CurrentProject.Path & fl
Dim constring As String
constring = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stfl
cn1.Open constring

rs1.Open "demo_claim", cn1, adOpenDynamic, adLockOptimistic, adCmdTable

While Not rs1.EOF
DTPicker5.Value = rs1.Fields(0)
DTPicker6.Value = rs1.Fields(1)
Text7 = rs1.Fields(2)
Text9 = rs1.Fields(3)
Text13 = rs1.Fields(4)
Text15 = rs1.Fields(5)
Text17 = rs1.Fields(6)
Text11 = rs1.Fields(7)

rs1.MoveNext
Wend

[willakawill]

While Not rs1.EOF
DTPicker5.Value = rs1.Fields(0)
DTPicker6.Value = rs1.Fields(1)
Text7 = rs1.Fields(2)
Text9 = rs1.Fields(3)
Text13 = rs1.Fields(4)
Text15 = rs1.Fields(5)
Text17 = rs1.Fields(6)
Text11 = rs1.Fields(7)

rs1.MoveNext
Wend

This is a loop running to the end of the recordset. You will always end up at the last record with this loop and your form will always show the fields from the last record