Access Module Code: rst.movenext I assume... (Resolved in the nick of time)

[Matt_T_hat]

but I now face a new problem

Private Function DoLoop(BM_Loco As String, LongVer As Boolean) As Boolean
Dim strSQL As String
Dim rstOrder As QueryDef
Dim dbProducts As DAO.database
Dim ThisIsIt
Dim DoResult As Boolean
 
On Error GoTo AdoError
Screen.MousePointer = vbHourglass
DoResult = False
 
      
    'The Long Version
    '================
      If LongVer = True Then
            strSQL = "[WORD_Long]"
            Set dbProducts = CurrentDb
            Set rstOrder = dbProducts.QueryDefs(strSQL)
            Do
                CopyThis rstOrder.Fields("Long_Note")
                PasteThis BM_Loco
                rstOrder.MoveNext
            Loop While Not (rstOrder.EOF)
            DoResult = True
      Else
'Etc....

I am told that rstorder.movenext is "method or data member not found". The problem is I am now about as far out on a limb as I can get and tredding water as far as ability to understand what I am dealing with. I have little doubt as to my ability to get there sooner or later but I fear it could be later...

I guess this is where I am told "Duh - You cant **** you have to #### instead if you want to $$$$$$$"

Sigh.

I think I do not undertand these objects all that well.