Catastrophic noob... can anyone help?

[pointBoarder]

So I'm new to access and I keep getting this "catastroph ic error" when
running this function. I my mind, all I'm doing is a nested for each
loop with RecordSets Vs collections.

The kicker is, this string will work fine:
' curLine = "call AddBom(""" + inParent + """, """ + curChild +
""",""" + curQty + """)"

But this one give me a "catastroph ic error"
'curLine = "call AddBom(""" + inParent + """, """ + curChild +
""",""" + curQty + """,""" + curSeq + """,""" + curPhantom + """)"

I've tried removing all the additional ""'s to no avail. Any ideas?
Thank you, thank you, thank you.
'partial code -- calls problem function
If Not rsAllParents.EO F Then rsAllParents.Mo veFirst
Do While Not rsAllParents.EO F
DoEvents

If (rsAllParents!P artNum <> vbNullString) Then
Call CreateFinalOutp ut(rsAllParents !PartNum, _
rsAllParents!Ma keOrBuy)
End If

rsAllParents.Mo veNext
Loop
rsAllParents.Cl ose
Public Function CreateFinalOutp ut(inParent As String, inMOBY As
Integer)

Dim rsChildren As ADODB.Recordset
Dim rsAutoBOMtempla te As ADODB.Recordset
Dim rsAutoBOMtempla te2 As ADODB.Recordset
Dim db As Database
Dim rsAdd As ADODB.Recordset
Dim OutputList As New Collection

Dim sqlcmd As String

Dim curParent As String
Dim curChild As String
Dim curQty As String
Dim curLine As String
Dim curSeq As String 'Make or Buy - Yes? sequence makes as
990's in BOM
Dim curPhantom As String 'is assembly? then code as phantom in BOM

curLine = ""
curParent = ""
curChild = ""
curQty = ""
curSeq = ""
curPhantom = ""

Set rsChildren = New ADODB.Recordset
Set rsAutoBOMtempla te = New ADODB.Recordset
Set rsAutoBOMtempla te2 = New ADODB.Recordset
Set rsAdd = New ADODB.Recordset
Set db = Application.Cur rentDb

'Select items to drive loop
sqlcmd = "SELECT * " & _
"FROM tblOutput where Parent = '" & inParent & "'"

rsChildren.Open sqlcmd, CurrentProject. Connection, adOpenKeyset,
adLockOptimisti c

If Not rsChildren.EOF Then rsChildren.Move First
Do While Not rsChildren.EOF

curQty = rsChildren!Quan tity
curChild = rsChildren!Chil d
isAssy = rsChildren!isAs sy
'If (isAssy) Then
'curPhantom = "p"
'End If
'If (inMOBY = 12) Then 'see ECN.mdb tblTypeDetail [ID 12 =
Make]
' curSeq = "990"
'End If

'curLine = "call AddBom(""" + inParent + """, """ + curChild +
""",""" + curQty + """,""" + curSeq + """,""" + curPhantom + """)"
curLine = "call AddBom(""" + inParent + """, """ + curChild +
""",""" + curQty + """)"

sqlcmd = "insert INTO tblFinalOut (FunCalls) " & _
" VALUES (" & _
"'" & Replace(curLine , "#", "") & "')"

rsAdd.Open sqlcmd, CurrentProject. Connection, adOpenKeyset,
adLockOptimisti c

rsChildren.Move Next
Loop
rsChildren.Clos e

Set db = Nothing

End Function