help with error message

[David]

I have this simple piece of code that works just fine, but when it is
finished running I get the following error message, and I can't find where I
need to name a table:
***********
Run-time error '2495':

The action or method requires a Table Name argument
***********

I think that the error occurs in calling the Sub, which I do from a
function. Running just the sub alone I don't seem to get the error.

Code:
=====================================================
Function GetReleases()
NewKits
End Function


=====================================================
Sub NewKits()
Dim RelNum

DoCmd.SetWarnings False
DoCmd.RunMacro "mroNewReleaseFinal"
DoCmd.OpenTable "tblNewReleasesFinal"


RelNum = DCount("*", "tblNewReleasesFinal")

If RelNum = 0 Then

DoCmd.Close acTable, "tblNewReleasesFinal"


MsgBox "No new releases for report run at " & Now(), vbOKOnly
DoCmd.SetWarnings True

Else


RunCommand (acCmdSelectAllRecords)
RunCommand (acCmdCopy)
DoCmd.OpenTable "Released Kits"
RunCommand (acCmdPasteAppend)
DoCmd.Close acTable, "Released Kits"
DoCmd.Close acTable, "tblNewReleasesFinal"


DoCmd.SendObject acSendTable, objectname:="tblNewReleasesFinal",
to:="xxxxxx", cc:="yyyyy", subject:="New Releases", _
messagetext:="yyyyy, add any Safedisc or DVD releases to appropriate tab in
GPS." _
, outputformat:="HTML", editmessage:=False

DoCmd.SendObject acSendTable, objectname:="tblNewKitsWithPrintComp",
to:="xxxxx", cc:="yyyyy", subject:="New Releases with Print Components", _
messagetext:="xxxxx, please download and store these new kits." _
, outputformat:="HTML", editmessage:=False

DoCmd.SetWarnings True
End If

End Sub
============================================
Any help appreciated,
David