ADO, SQL Stored Proc, and Error #13(type mismatch)

'The connection is established before this function is called
'Function to prepare the command object
Public Function prepCmdObject_InsertStateForm(ByRef cn As ADODB.Connection, ByRef cmd As ADODB.Command) As Boolean
    On Error Resume Next
    
    cmd.ActiveConnection = cn
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = "Db_Exec.InsertState_Form"
    cmd.Parameters.Refresh
    
    If Err.Number = 0 Then prepCmdObject_InsertStateForm = True
End Function

CREATE PROCEDURE [Db_Exec].[InsertState_Form] 
	-- Add the parameters for the stored procedure here
	@Form_ID int,
	@State_ID int,
	@Form_Date nvarchar(50),
	@Filing_Type_ID int,
	@Revision tinyint,
	@State_Specific tinyint,
	@Filing_Date nvarchar(50) = null,
	@Filing_Status_ID int = null,
	@Approval_Date nvarchar(50) = null
	
	
AS
BEGIN
	-- SET NOCOUNT ON added to prevent extra result sets from
	-- interfering with SELECT statements.
	SET NOCOUNT ON;

	-- Check null values
	IF (@Form_ID = null OR
	         @State_ID = null OR
	         @Form_Date = null OR
		@Filing_Type_ID = null OR
		@Revision = null OR
		@State_Specific = null)
		RETURN -1;
	
	-- Check Date String
	IF   (ISDATE(@Form_Date) <> 1 OR
		((ISDATE(@Filing_Date) <> 1) and (@Filing_Date IS NOT NULL)) OR
		((ISDATE(@Approval_Date) <> 1) and (@Approval_Date is not null)))
		RETURN -2;
	
    -- Insert statements for procedure here
	INSERT destTable
		VALUES
			(
				@Form_ID,
				@State_ID,
				cast(@Form_Date as DATE),
				@Filing_Type_ID,
				@Revision,
				@State_Specific,
				cast(@Filing_Date AS DATE) ,
				@Filing_Status_ID,
				cast(@Approval_Date as DATE)
			);
	
	SELECT @@ERROR 	
END

Public Function addNewForm_FromStateList_ByStateForm_ADO(stateList() As Long, sForm As stateForm) As Boolean
On Error Resume Next
Dim r As Recordset
Dim cn As ADODB.Connection
Dim cmd As New ADODB.Command
Dim i As Integer, sz As Long

'Initializations
addNewForm_FromStateList_ByStateForm_ADO = False

'Check for an empty state list (zero length array)
If isLongArrayNull_rSz(stateList, sz) = True Then Exit Function

'Verify the state form for required fields
If Not checkStateForm(sForm) Then Exit Function

'Establish and Verify the connection
Set cn = dbConnect
If connOpen(cn) = False Then Exit Function

'Prepare the command object
'If prepCmdObject_InsertStateForm(cn, cmd) = False Then Exit Function
If prepCmdObject_InsertStateForm2(cn, cmd) = False Then Exit Function

'Set parameter data
'If setCmdObjectParams_InsertStateForm(cmd, sForm) = False Then Exit Function
If setCmdObjectValues_FromStateFromType(cmd, sForm) = False Then Exit Function

'Got this far, time to push to server
For i = 0 To sz
    cmd.Parameters("@State_ID").Value = stateList(i)
	Set r = cmd.Execute
Next

'Cleanup and exit
If Err.Number = 0 Then
	addNewForm_FromStateList_ByStateForm_ADO = True
Else
	Debug.Print cmd.Parameters("@RETURN_VALUE").Value
End If

Set cmd = Nothing
Call CloseConn(cn)

End Function