The related question attached to this one explains my current situation. I'm having some strange issues with using the MovePrevious command. I was able to reproduce my issue once again 100% of the time.
In attempting to isolate the issue, I took GrahamSkan's code and made small edits to it which were closer to how my code is setup. An issue occurred before I could get to attempting to reproduce my issue with his code.
The following is GrahamSkan's code, except instead of having the debug lines in the same Sub, I've created a new sub which contain them. However when I do this, it's telling me that "rs" is not defined. I'm not sure why and it's probably very simple. This stuff is somewhat new to me. Here is the code :
Public Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strConnection As String
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TestTable2.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
rs.Open "Select * FROM [Data$]", strConnection, adOpenStatic, adLockOptimistic, adCmdText
rs.Filter = "ID <> NULL AND Table <> NULL AND Rule <> NULL AND Account <> NULL AND Status = NULL"
Do While Not rs.EOF
Public Sub Debugger()