Help with error: 'Operation is not allowed when the object is open'

please someone help me...
i need to figure out how this error be remove
i will attached the codes i used... and the program it self

FORM1 codes

vb Code:

Dim db As New ADODB.Connection
Dim rsstudinfo As New ADODB.Recordset
Dim rsgrade As New ADODB.Recordset
Dim x As Integer
 
Private Sub cmd1_Click()
    frmSearch.Show
End Sub
 
Private Sub cmdNext_Click()
rsgrade.Open "select * from tblGrade where studnum ='" & txtsearch.Text & "'", db, adOpenDynamic, adLockOptimistic
If rsgrade.EOF = True Then
    MsgBox "END OF RECORD", vbOKOnly, "END OF FILE"
    
    rsgrade.MovePrevious
    
Else
    Form1.txta.Text = rsgrade.Fields(0)
    Form1.txtb.Text = rsgrade.Fields(1)
    Form1.txtc.Text = rsgrade.Fields(2)
    Form1.txtd.Text = rsgrade.Fields(3)
    rsgrade.MoveNext
  
End If
 
 
End Sub
 
Private Sub cmdPrev_Click()
rsgrade.Open "select * from tblGrade where studnum ='" & txtsearch.Text & "'", db, adOpenDynamic, adLockOptimistic
If rsgrade.BOF = True Then
    MsgBox "END OF RECORD", vbOKOnly, "END OF FILE"
    
    rsgrade.MoveNext
 
Else
    Form1.txta.Text = rsgrade.Fields(0)
    Form1.txtb.Text = rsgrade.Fields(1)
    Form1.txtc.Text = rsgrade.Fields(2)
    Form1.txtd.Text = rsgrade.Fields(3)
    rsgrade.MovePrevious
 
End If
 
End Sub
 
Private Sub Command1_Click()
Form1.txt1.Text = rsstudinfo.Fields(0)
    Form1.txt2.Text = rsstudinfo.Fields(1)
    Form1.txt3.Text = rsstudinfo.Fields(2)
    Form1.txt4.Text = rsstudinfo.Fields(3)
    Form1.txt5.Text = rsstudinfo.Fields(4)
    rsstudinfo.MoveLast
End Sub
 
Private Sub Command2_Click()
Form1.txt1.Text = rsstudinfo.Fields(0)
    Form1.txt2.Text = rsstudinfo.Fields(1)
    Form1.txt3.Text = rsstudinfo.Fields(2)
    Form1.txt4.Text = rsstudinfo.Fields(3)
    Form1.txt5.Text = rsstudinfo.Fields(4)
    rsstudinfo.MoveFirst
End Sub
 
Private Sub Command3_Click()
If rsstudinfo.BOF = True Then
    MsgBox "END OF RECORD", vbOKOnly, "END OF FILE"
    rsstudinfo.MoveNext
Else
    Form1.txt1.Text = rsstudinfo.Fields(0)
    Form1.txt2.Text = rsstudinfo.Fields(1)
    Form1.txt3.Text = rsstudinfo.Fields(2)
    Form1.txt4.Text = rsstudinfo.Fields(3)
    Form1.txt5.Text = rsstudinfo.Fields(4)
    rsstudinfo.MovePrevious
End If
    
End Sub
 
Private Sub Command4_Click()
If rsstudinfo.EOF = True Then
    MsgBox "END OF RECORD", vbOKOnly, "END OF FILE"
    
    rsstudinfo.MovePrevious
Else
    Form1.txt1.Text = rsstudinfo.Fields(0)
    Form1.txt2.Text = rsstudinfo.Fields(1)
    Form1.txt3.Text = rsstudinfo.Fields(2)
    Form1.txt4.Text = rsstudinfo.Fields(3)
    Form1.txt5.Text = rsstudinfo.Fields(4)
    rsstudinfo.MoveNext
End If
End Sub
 
Private Sub Form_Load()
db.Open "Provider=Microsoft.jet.oledb.4.0; Data Source=" & App.Path & "\db1.mdb"
rsstudinfo.Open "select * from tblStudinfo", db, adOpenDynamic, adLockOptimistic
 
Do While rsstudinfo.EOF = False
    Form1.txt1.Text = rsstudinfo.Fields(0)
    Form1.txt2.Text = rsstudinfo.Fields(1)
    Form1.txt3.Text = rsstudinfo.Fields(2)
    Form1.txt4.Text = rsstudinfo.Fields(3)
    Form1.txt5.Text = rsstudinfo.Fields(4)
    rsstudinfo.MoveNext
    'Do While rsgrade.EOF = False
     '   Form1.txta.Text = rsgrade.Fields(0)
      '  Form1.txtb.Text = rsgrade.Fields(1)
       ' Form1.txtc.Text = rsgrade.Fields(2)
        'Form1.txtd.Text = rsgrade.Fields(3)
        'rsgrade.MoveNext
    'Loop
Loop
 
 
End Sub
 
'------------------------------------------------
 
'FORM SEARCH
 
Dim db As New ADODB.Connection
Dim rsstudinfo As New ADODB.Recordset
Dim rsgrade As New ADODB.Recordset
Private Sub cmdSearch_Click()
'db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
'db.Open
db.Open "Provider=Microsoft.jet.oledb.4.0; Data Source=" & App.Path & "\db1.mdb"
Form1.txtsearch.Text = txtsearch.Text
    rsstudinfo.Open "Select * from tblSTudinfo where StudNum like '" & txtsearch.Text & "%'", db, adOpenDynamic, adLockOptimistic
    rsgrade.Open "select * from tblGrade where studnum ='" & txtsearch.Text & "'", db, adOpenDynamic, adLockOptimistic
    Form1.txt1.Text = rsstudinfo.Fields(0)
    Form1.txt2.Text = rsstudinfo.Fields(1)
    Form1.txt3.Text = rsstudinfo.Fields(2)
    Form1.txt4.Text = rsstudinfo.Fields(3)
    Form1.txt5.Text = rsstudinfo.Fields(4)
    Do While rsgrade.EOF = False
        Form1.txta.Text = rsgrade.Fields(0)
        Form1.txtb.Text = rsgrade.Fields(1)
        Form1.txtc.Text = rsgrade.Fields(2)
        Form1.txtd.Text = rsgrade.Fields(3)
        rsgrade.MoveNext
    Loop
    rsgrade.MoveFirst
Me.Hide
End Sub
 
'-----------------------------
 
'MODULE 1
 
Dim db As New ADODB.Connection
Dim rsstudinfo As New ADODB.Recordset
Dim rsgrade As New ADODB.Recordset
 
Public Sub main()
db.Open "Provider=Microsoft.jet.oledb.4.0; Data Source=" & App.Path & "\db1.mdb"
Form1.Show
Form1.txtCtr.Text = ""
End Sub
 
Public Sub field()
db.Open "Provider=Microsoft.jet.oledb.4.0; Data Source=" & App.Path & "\db1.mdb"
rsstudinfo.Open "select * from tblStudinfo", db, adOpenDynamic, adLockOptimistic
Do While rsstudinfo.EOF = False
    Form1.txt1.Text = rsstudinfo.Fields(0)
    Form1.txt2.Text = rsstudinfo.Fields(1)
    Form1.txt3.Text = rsstudinfo.Fields(2)
    Form1.txt4.Text = rsstudinfo.Fields(3)
    Form1.txt5.Text = rsstudinfo.Fields(4)
    rsstudinfo.MoveNext
Loop
 
 
End Sub

thanks who those will reply....

On what line of code does the error occur?

(PS: I edited your post and added [highlight=vb]your code goes in here[/highlight] - it makes code so much easier to read.)

When you have finished with the database and wants to open a new connection, you have to close the connection first.

Example:

Code:

---

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source= " & App.Path & "\database.mdb"
    cn.Open
Set rs = New ADODB.Recordset
    rs.Open "settings", cn, adOpenKeyset, adLockPessimistic, adCmdTable

'// Here you will do the necessary coding.eg. searching, filling Listbox, etc.)

'// Now we have to close it
rs.close

'// now opening another table
    rs.Open "mytable", cn, adOpenKeyset, adLockPessimistic, adCmdTable

'// rest of the code

'// now close all the connections and empty everything from the memory

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

---

... :wave:

If your error is happening at lines 11 or 30 then I would try putting rsgrade.Close at lines 25 and 44.