"Application uses Value of wrong type for the current operation"

[vuyiswamb]

i have one Problem, please tell me what should i keep in mind, about the following Errors
"Application uses Value of wrong type for the current operation"

This is th errors in vb6

Set prmNum_key = ComNum_key.CreateParameter("Num_Key", adBigInt _
, adParamInput)

Set prmExtension = ComExtension.CreateParameter("Extension", adBigInt _
, adParamInput, , txtextension.Text)

Set prmCell_ID = ComCell_ID.CreateParameter("Cell_ID", adBigInt _
, adParamInput, , txtcellid.Text)

Set prmActual_Extent = ComActual_Extent.CreateParameter("Actual_Extent", adDouble _
, adParamInput, , txtactualextent.Text)

Set prmLis_key = ComLis_key.CreateParameter("Lis_Key", adChar _
, adParamInput, 50, txtliskey.Text)

Set prmFunc_key = ComFunc_key.CreateParameter("Func_key", adBSTR _
, adParamInput, 8, txtfunckey.Text)

Here is my SQl Procedure code

Create Procedure prcInserting @Num_key varchar(10),@Extension int,@Cell_ID int,
@Actual_Extent float,@Lis_key varchar(50), @Func_key varchar(8)
,@Active bit,@Add_date datetime,@Add_User_ID int,@Spatial_ADD_Date datetime
,@Rateable bit,@Non_Discreet_Valid bit
with recompile
as
insert into Propery(Num_key,Extension,Cell_ID,Actual_Extent,Lis_key,Func_key,Active,Add_date,Add_User_ID,Spatial_ADD_Date,Rateable,Non_Discreet_Valid)
values (@Num_key,@Extension,@Cell_ID,@Actual_Extent,@Lis_key, @Func_key,0,getdate(),1,getdate(),0,0)

And its working only in vb, tell me what to keep in mind with insert procedures that are linked to vb for input