Mispelled, ponctuation OR Resered word type error.

Private Sub Form_Open(Cancel As Integer)
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset(TempVars("ButtonRecordSource"))
    While Not rs.EOF
    
        MsgBox rs!ButtonCaption
        
        
        rs.MoveNext
    Wend
    rs.Close
    Set rs = Nothing

The following is the error message

x

If you msgbox the tempvars, what do get?

What arguments am i missing?

If you click Debug what line of code is highlighted?

Set rs = CurrentDb.OpenRecordset(TempVars("ButtonRecordSource"))

For some reason i cannot get past the above set rs line.

Go to the where the TempVars() is set. Check your spacing.

I just ran a test by removing the space before the line continuation and I got the same error message (your first screenshot). I'm thinking that may be the problem.

i got the exact spacing as the video and i'm still getting the error.

Private Sub Form_Open(Cancel As Integer)

    Dim rs As Recordset
    
    Set rs = CurrentDb.OpenRecordset(TempVars("ButtonRecordSource"))
    While Not rs.EOF
    
        MsgBox rs!ButtonCaption
        
        rs.MoveNext
    Wend
    rs.Close
    Set rs = Nothing
    
End Sub

The TempVars() is set in the Select Vehicles Button.

TempVars("ButtonRecordSource") = "SELECT VMakeID As ID, VMakeName as ButtonCaption " & _
        "FROM VMakeT ORDER BY VMakeName"

You were right the problem was with the SQL statement. I corrected it.
Thank you very much for your help..

You're welcome.