how to pass multiple datatypes to array in vb8

See more:

VB

Hi,

below is my code

Public Function mp(ByVal PName As String, ByVal PType As ADODB.DataTypeEnum, ByVal PSize As Long, ByVal PValue As Object) As Object

        
        'mp = Array(PName, PType, PSize, PValue)
    End Function

----------> this function is used in this

intRunCount = m_dbh.RunSPReturnInteger("Extract_RunCount", Array(mp("@RunCycle", DataTypeEnum.adChar, 10, mCycle)))

--------------> And in the function RunSPReturnInteger internally collectparams method is called for which this array is passed as input and i have mentioned collect params method below.

Public Function RunSPReturnInteger(ByVal strSP As String, Optional params As Variant) As Variant
    On Error GoTo errorHandler
    
    ' //Create the ADO objects
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command
    
    '// Init the ADO objects & the stored proc parameters
    cmd.ActiveConnection = GetConnectionString()
    cmd.CommandText = strSP
    cmd.CommandType = adCmdStoredProc

    collectParams (cmd, params)
    
    '//Assume the last parameter is outgoing and named @retval (specific for FMStocks)
    cmd.Parameters.Append cmd.CreateParameter("@retval", adInteger, _
        adParamOutput, 4)
    
    ' //Execute without a resulting recordset and pull out the "return value" parameter
    cmd.Execute , , ADODB.adExecuteNoRecords
    RunSPReturnInteger = cmd.Parameters("@retval").Value
    
    ' //Cleanup and return
    Set cmd.ActiveConnection = Nothing
    Set cmd = Nothing
    Exit Function

in vb6 mp array is working fine but in vb8 it's showing error how can i pass ddifferent datatypes to array in vb8