Run-time error 8577

Failed getting Rowset(s) from current data source



OK guys, where did I go wrong?
Here's my code:

VB Code:
  1. Private Sub cmdAdd_Click()

  2. 'Add item to database

  3. cmdAdd.Enabled = False

  4. cmdSave.Enabled = True

  5. cmdDelete.Enabled = True

  6. dtaInventory.Recordset.AddNew

  7. txtItem.SetFocus

  8. End Sub

  9.  
  10. Private Sub cmdDelete_Click()

  11. 'Delete item from database

  12. Dim Rvalue As Integer

  13. Rvalue = MsgBox("Are you sure you want to delete this item?", vbQuestion + vbYesNo, "Delete Item")

  14. If Rvalue = vbNo Then Exit Sub

  15. dtaInventory.Recordset.Delete

  16. dtaInventory.Recordset.Requery

  17. dtaInventory.Recordset.MoveNext

  18. If dtaInventory.Recordset.EOF = True Then

  19.     dtaInventory.Refresh

  20.     If dtaInventory.Recordset.BOF = True Then

  21.         MsgBox "You must add a record.", vbOKOnly + vbInformation, "Empty File"

  22.         Call cmdAdd_Click

  23.     Else

  24.         dtaInventory.Recordset.MoveFirst

  25.     End If

  26. End If

  27. txtItem.SetFocus

  28. End Sub

  29.  
  30. Private Sub cmdNext_Click()

  31. 'Move to next item

  32. dtaInventory.Recordset.MoveNext

  33. If dtaInventory.Recordset.EOF Then dtaInventory.Recordset.MovePrevious

  34. txtItem.SetFocus

  35. End Sub

  36.  
  37. Private Sub cmdPrevious_Click()

  38. 'Move to previous item

  39. dtaInventory.Recordset.MovePrevious

  40. If dtaInventory.Recordset.BOF Then dtaInventory.Recordset.MoveNext

  41. txtItem.SetFocus

  42. End Sub

  43.  
  44. Private Sub cmdSave_Click()

  45. 'Check txtItem has been filled

  46. If txtItem.Text = "" Then

  47. Dim Response As Integer

  48. Response = MsgBox("Please enter an item", vbOKOnly + vbCritical, "Add item")

  49. Else

  50. 'Save item to database

  51. dtaInventory.Recordset.Update

  52. dtaInventory.Recordset.Requery

  53. cmdAdd.Enabled = True

  54. cmdSave.Enabled = False

  55. cmdDelete.Enabled = True

  56. txtItem.SetFocus

  57. End If

  58. End Sub

  59.  
  60. Private Sub mnuExit_Click()

  61. 'Exit Program

  62. Dim Response As Integer

  63. Response = MsgBox("Are you sure you want to exit?", vbYesNo + vbCritical + vbDefaultButton2, "Exit Program")

  64. If Response = vbNo Then

  65.     Exit Sub

  66. Else

  67.     End

  68. End If

  69. End Sub

  70.  
  71. Private Sub mnuPrint_Click()

  72. 'Show Printable Inventory

  73. dtaInventory.Recordset.Requery

  74. rptInventory.Refresh

  75. rptInventory.Show

  76. End Sub

The error comes up when I try to view the data report