Object required?

[Neekos]

I'm getting an Object Required error when this code is run. Any ideas?

Private Sub btnCabin_Click()
On Error GoTo Err_btnCabin_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim intOV As Integer
    Dim intInside As Integer
    Dim intBalc As Integer
 
    stDocName = "frmNewCabins"
 
    stLinkCriteria = "[GroupNumber]=" & "'" & Me![GroupNumber] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
    intOV = DCount(tblManifest.[ID], tblManifest, tblManifest.[Category] = "OV")
    intInside = DCount([tblManifest.ID], tblManifest, tblManifest.[Category] = "Inside")
    intBalc = DCount([tblManifest.ID], tblManifest, tblManifest.[Category] = "Balcony")
 
    Forms![frmNewCabins]![OVAmt] = Forms![frmCabins]![OVAmt] - intOV
    Forms![frmNewCabins]![InsideAmt] = Forms![frmCabins]![InsideAmt] - intInside
    Forms![frmNewCabins]![BalconyAmt] = Forms![frmCabins]![BalconyAmt] - intBalc
 
 
Exit_btnCabin_Click:
    Exit Sub
 
Err_btnCabin_Click:
    MsgBox Err.Description
    Resume Exit_btnCabin_Click
 
End Sub

[Rabbit]

The correct syntax for DCount is:

DCount("[Field Name]", "[Table Name]", "[Text Field] = 'Some String'")

Including the quotes.