Can't Move Around in my Recordset

Question

Hi,
From a beginner, the issue is that Recordset.MoveNext and .MovePrevious aren't working, though .MoveFirst and MoveLast are.  If I exchange MoveLast for MoveNext and MovePrevious to MoveNext, the output will be 8 repetitions of the last record as compared
to the first.  Counter will be 0 for each output starting with MoveFirst and 7 starting with MoveLast (which is interesting since I read that the AbsolutePosition property is supposed to be 1-based).  Any help will be appreciated!
Following is the code:
Private Sub CmbOffices_Click()
    Call WordEx 'opens a Word doc and sets database objects
    Dim Counter As Long
    Dim intComboItem As Integer
    Set objSelection = objWord.Selection
    objSelection.TypeText ("STUFF") & vbCrLf
    For intComboItem = 0 To CmbOffices.ListCount - 1
        recordset.MoveFirst
        Counter = recordset.AbsolutePosition
            objSelection.TypeText field.Value & field2.Value & field3.Value & Counter & vbCrLf
              'Else
        recordset.MoveNext
        'End If
    Next
    recordset.Close
    db.Close
End Sub

Answer 1

If you are a beginner, then don't start with a language from the last millenium. VB6 is not supported anymore for a long time.
As this forum is about VB.Net only, have a look at the following link and consider posting in the therein linked forum:
Visual Basic 6.0 Resource Center
Armin