Whats wrong with this:

Thanx for any suggestions.

Option Compare Database
Option Explicit
Dim CurDb As DAO.Database
Dim MEMPass As DAO.Recordset
Dim memTEST As String

Private Sub Command0_Click()
Set CurDb = CurrentDb()
Set MEMPass = CurDb.OpenRecordset("sysPasswordsT")
DoCmd.OpenTable "sysPasswordsT"
DoCmd.GoToRecord acDataTable, "sysPassWordsT", acFirst
DoCmd.GoToRecord acDataTable, "sysPassWordsT", acNext
DoCmd.GoToRecord , "sysPassWordsT", acNext
memTEST = MEMPass!Password
MsgBox (memTEST) 'this box returns first record, not 3 record !?
End Sub

MsgBox should return data from password in third record, yes?

help! Thanx.

Hi James,

Your code is navigating through the physical base table, not the recordset object you created. Use the recordset objects Move methods to navigate the recordset:

Dim CurDb As DAO.Database
Dim MEMPass As DAO.Recordset
Dim memTEST As String

Private Sub Command0_Click()
    Set CurDb = CurrentDb()
    Set MEMPass = CurDb.OpenRecordset("sysPasswordsT")
    MEMPass.MoveFirst
    MEMPass.MoveNext
    MEMPass.MoveNext
    memTEST = MEMPass!Password
    MsgBox (memTEST) ' displays third record
End Sub

HTH,

Bob

:)thanx Bob.