i have a problem with the cmdNavBar error alway appearing Operation is Not allowed wh

[paulo098]

I have a problem with the cmdNavBar error alway appearing Operation is Not allowed:

<FORM>
Private Sub cbodept_Click()
    If cbodept.Text = "Faculty" Then
        txtgross.Text = "10000"
    Else
    If cbodept.Text = "Accounting" Then
        txtgross.Text = "20000"
    Else
    If cbodept.Text = "Registrar" Then
        txtgross.Text = "15000"
    Else
    If cbodept.Text = "Technical Support" Then
        txtgross.Text = "12000"
    Else
    If cbodept.Text = "Marketing" Then
        txtgross.Text = "18000"
    Else
    If cbodept.Text = "Administrative" Then
        txtgross.Text = "25000"
 
    End If
    End If
    End If
    End If
    End If
    End If
 
End Sub
 
Private Sub cmdaction_Click(Index As Integer)
 
    Select Case Index
 
        Case 0 ' Record
 
            rs.Open "Select * from tblpayroll", cn, 3, 3
            rs.AddNew
            rs!PayrollDate = DTPicker1.Value
            rs!EmployeeNo = txtempno.Text
            rs!EmployeeName = txtempname.Text
            rs!Department = cbodept.Text
            rs!GrossPay = txtgross.Text
            rs!Deduction = txtdeduc.Text
            rs!Net = txtnet.Text
            rs.Update
            MsgBox "New Payroll has been Added!"
 
            Set rs = Nothing
 
        Case 1 ' Delete Record
 
            Dim res As VbMsgBoxResult
            On Error GoTo fixdel
            res = MsgBox("Delete" & txtempname & "information?", vbYesNo + vbQuestion, "confirm")
 
            If res = vbYes Then
                rs.Open "Select * from tblpayroll where EmployeeNo ='" & txtempno.Text & "'", cn, 3, 3
                rs.Delete
                rs.Update
                rs.Close
                Set rs = Nothing
            End If
 
fixdel:
 
 
            If Err.Number = 6160 Then
                MsgBox "No data to delete!", vbOKOnly + vbInformation, "Message"
            End If
 
        Case 2 ' Update record
 
 
            rs.Open "Select * from tblpayroll", cn, 3, 3
            rs!PayrollDate = DTPicker1.Value
            rs!EmployeeNo = txtempno.Text
            rs!EmployeeName = txtempname.Text
            rs!Department = cbodept.Text
            rs!GrossPay = txtgross.Text
            rs!Deduction = txtdeduc.Text
            rs!Net = txtnet.Text
            rs.Update
            MsgBox "Current Payroll has been updated!"
 
            Set rs = Nothing
 
        Case 3 'Search record
 
            FindEmployeeNo = InputBox("Enter Employee Number")
            rs.Open "Select * from tblpayroll where EmployeeNo = '" & txtempno.Text & "'", cn, 3, 3
 
            If rs.EOF Then
                MsgBox "No Such Record!", vbCritical + vbOKOnly, " Error Search"
            End If
 
        Case 4 ' print
            Set rs = Nothing
 
 
            rs.Open "Select * From tblpayroll", cn, 3, 3
 
 
 
            Set DataReport1.DataSource = rs
 
            DataReport1.Show
 
        Case 5 'exit
 
            End
 
    End Select
 
End Sub
 
Private Sub cmdnavbar_Click(Index As Integer)
 
 
 
   rs.Open "Select * from tblpayroll", cn, 3, 3
 
        Select Case Index
 
            Case 0 'movefirst
                On Error Resume Next
 
 
                rs.MoveFirst
                DTPicker1.Value = rs!PayrollDate
                txtempno.Text = rs!EmployeeNo
                txtempname.Text = rs!EmployeeName
                cbodept.Text = rs!Department
                txtgross.Text = rs!GrossPay
                txtdeduc.Text = rs!Deduction
                txtnet.Text = rs!Net
                If rs.EOF Then
                     MsgBox "First record!"
                End If
            Case 1 'Move previous
                On Error Resume Next
 
                rs.MovePrevious
                DTPicker1.Value = rs!PayrollDate
                txtempno.Text = rs!EmployeeNo
                txtempname.Text = rs!EmployeeName
                cbodept.Text = rs!Department
                txtgross.Text = rs!GrossPay
                txtdeduc.Text = rs!Deduction
                txtnet.Text = rs!Net
 
                If rs.EOF Then
                     MsgBox "First record!"
                End If
 
            Case 2 ' MoveNext
                On Error Resume Next
 
                rs.MoveNext
                DTPicker1.Value = rs!PayrollDate
                txtempno.Text = rs!EmployeeNo
                txtempname.Text = rs!EmployeeName
                cbodept.Text = rs!Department
                txtgross.Text = rs!GrossPay
                txtdeduc.Text = rs!Deduction
                txtnet.Text = rs!Net
 
                If rs.EOF Then
                     MsgBox "Last record!"
                End If
            Case 3 'Move last
                On Error Resume Next
 
                rs.MoveLast
 
                DTPicker1.Value = rs!PayrollDate
                txtempno.Text = rs!EmployeeNo
                txtempname.Text = rs!EmployeeName
                cbodept.Text = rs!Department
                txtgross.Text = rs!GrossPay
                txtdeduc.Text = rs!Deduction
                txtnet.Text = rs!Net
 
                If rs.EOF Then
                     MsgBox "Last record!"
                End If
        End Select
 
            rs.Close
 
End Sub
 
 
Private Sub Form_Load()
cn.Open "Provider =Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\db1.mdb"
 
 
End Sub
 
Private Sub txtdeduc_Change()
txtnet.Text = Val(txtgross.Text) - Val(txtdeduc.Text)
End Sub
 
Private Sub txtgross_Change()
txtnet.Text = Val(txtgross.Text) - Val(txtdeduc.Text)
End Sub
 
<MODULE>
 
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
 
Sub connect()
  Set cn = New ADODB.Connection
  cn.Open "Provider=Microsoft.Jet.OLED.4.0;Data Source=" & App.Path & "\db1.mdb"
  Set rs = New ADODB.Recordset
  rs.ActiveConnection = cn
  rs.CursorLocation = adUseClient
  rs.CursorType = adOpenDynamic
  rs.LockType = adLockBatchOptimistic
 rs.Open "Select * from tblpayroll", cn, 3, 3
  rs.Open
 
End Sub
 
 

tnx in advance. please help me i need to pass this project for my school project..

[Frinavale]

Please repost the error message and tell us what line the problem is happening on so that we can help you.