What is the wrong in this code?

[sal1150]

I use this code in a class to insert row in table:-

'********************
Public Sub hosptINSERT(FRM As Object, C As Object)

Set Cmd = New ADODB.Command
With Cmd
.ActiveConnection = cn
.CommandText = "prd_insert_HOSPT"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("@HOSPNAME_1", adVarChar, 1, 10, C(0).Text)
.Parameters.Append .CreateParameter("@FULLNAME_2 ", adVarChar, 1, 50, C(1).Text)
.Parameters.Append .CreateParameter("@AHOSPNAME_3", adVarChar, 1, 50, C(2).Text)
End With
End Sub
'********************
WHEN I TRAY TO RUN IT ,I FACE THES MSG:-'Must specify index for object array'