rst에 대한 변수 선언은 하신 건가요? 첨부한 이미지에는 안보입니다. 

제가 첨부한 예제 파일 보시면 정상적으로 잘 동작하오니 보시고 참고 하시기 바랍니다.

Private Sub Command0_Click()

    Dim rst As ADODB.Recordset

    Dim strSQL As String

    

    Set rst = New ADODB.Recordset

   

    strSQL = "SELECT ID, NumValue FROM tTemp1"

    

   

    rst.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly

    

    'rst.MoveLast

    

'    MsgBox rst.Fields.Count & vbNewLine & rst.RecordCount

    Debug.Print rst.RecordCount

    

    Do Until rst.EOF

        Debug.Print rst!NumValue

        rst.MoveNext

    Loop

    

    

End Sub