Hi guys ! I am new here, i just wanna ask. I know the solution for this problem is simple but i just cannot figure it out......I get the error at the italized area.
Code:
Option Explicit
Dim pdbQue As DAO.Database
Dim mrstQue As DAO.Recordset
Dim querQue As DAO.Recordset
Private Sub Form_Load()
Label7 = 1
Set pdbQue = OpenDatabase(App.Path & "\Test Editor.mdb")
Set mrstQue = pdbQue.OpenRecordset("SELECT * FROM Quest ORDER BY QuestionId")
Set querQue = pdbQue.OpenRecordset("Quest Query", [I][B]pdbQueOpenDynaset[/B][/I])
Main.Que_No
Main.Set_No
Label9.Caption = Main.topic
Command5.Enabled = False
End Sub
Comment