Word 2007 VBA - Can't Move around in a Recordset - From a Beginner

Question

[reposted from the VB.net forum where I mistakenly posted it]
Hi,
This is a simple program.  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!  The
recordset is default (table-based) but this issue remained when I changed it to a dynaset recordset.
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
Chiroacuman

Answer 1

Hi Gill,
Thanks for helping me with this.  I forgot to mention that I have spent a lot of time on the net and here trying to find a solution.  Here is the code where I defined variables:
[General Declarations in a classic Module]
Public db As DAO.Database
    Public recordset As DAO.recordset
    Public field As DAO.field
    Public field2 As DAO.field
    Public field3 As DAO.field
Public Sub WordEx()
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Add
    Set db = CurrentDb
    Set recordset = db.OpenRecordset("Headers", dbOpenDynaset)
    Set field = recordset.Fields(0)
    Set field2 = recordset.Fields(1)
    Set field3 = recordset.Fields(2)
    objWord.Visible = True
End Sub
Chiroacuman