when i run the code below i get all the number of records lets say 15 but i get all of them filled with the last record fields 15 times repeated!

the code:

Set rs6 = db6.OpenRecordset("select * FROM todolist where donethat ='" & thevar2 & "'", dbOpenDynaset)

thenum1 = rs5.Fields("thenum")

If thenum1 = 0 Then

rs6.MoveFirst
Do While rs6.EOF = False

Me.JobsID.Value = rs6.Fields("jobsid")
Me.Description.Value = rs6.Fields("description")
Me.POPUPMEMO.Value = rs6.Fields("POPUPMEMO")
Me.DateAdded.Value = rs6.Fields("DateAdded")
Me.DoneThat.Value = rs6.Fields("DoneThat")

rs6.MoveNext

Loop

thanks.

hi try with this , hope it will work

rs6.MoveFirst

Do While not rs6.EOF

Me.JobsID.Value = rs6.Fields("jobsid")
Me.Description.Value = rs6.Fields("description")
Me.POPUPMEMO.Value = rs6.Fields("POPUPMEMO")
Me.DateAdded.Value = rs6.Fields("DateAdded")
Me.DoneThat.Value = rs6.Fields("DoneThat")

rs6.MoveNext

regards

Raajagopal.V



at your service
-v.raajagopal