error in dao recordset code

tendaimare · April 3rd, 2012, 08:23 AM

I've got my code to movenext to next record .but what happens is that if i click once it moves to the next record but then after that it refuses to move to the next record. Does anyone have an idea how I can fix my code

Code:

Dim AccessEngine As New DBEngine

        Dim db As Database = AccessEngine.OpenDatabase(DatabasePath)
        Dim dbs As Microsoft.Office.Interop.Access.Dao.Recordset = db.OpenRecordset("myTable", RecordsetTypeEnum.dbOpenDynaset)

        If Not dbs.EOF Then

            dbs.MoveNext()

            txtName.Text = dbs.Fields("myName").Value
            txtSurname.Text = dbs.Fields("mySurname").Value

        End If