Hi

Ive created a stored procedure in sql 2ooo which nsimply inserts a record into a table
SP
HTML Code:
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

--PURPOSE
--Inserts a new quote into the TabQMS_quotes table
--

ALTER      PROCEDURE up_Ins_NewQuote (@Contact_Char varchar (20), @Status varchar
(20), @AC_No varchar(10), @RiskName_char varchar(50), @Renewal_date datetime,
@TargetPremium_cur money,
@TargetInsurer_char varchar(50), @Carrier_char varchar(50), @QuoteReference_char
varchar(50), @CarrierSource_char varchar (50), 
@QuotedPremium_cur money, @Terms_note varchar(300), @CreditTerms_char varchar(20),
@NextDiary_date as datetime, @RiskTransfer_char varchar(10), @BrkComm_per char(20),
@BDComm_per char(10), @ProductCode_char varchar(10),
@DiaryReason_note varchar(50)) as 

--Declare Variables
declare
--@QuoteRefID int,
@Risk_No varchar(10),
@Contact_No int,
@MaxQuote int,
@gnCodeInt int,
@RecievedDate datetime

set @RecievedDate = getdate()

set @Contact_No = (SELECT REF_ID FROM tabQMS_ContactList WHERE REF_ID = any (SELECT
Ref_ID FROM tabQMS_ContactList WHERE (tabQMS_Contactlist.Contact_Char) =
@Contact_Char ))
set @Risk_No = (SELECT RefID FROM tabQMS_RiskDetails WHERE RefID = any (SELECT RefID
FROM tabQMS_RiskDetails WHERE (tabQMS_RiskDetails.[Name]) = @RiskName_char ))

if @status <> '0' begin set @status = 'Declined' end
else 
begin set @status = 'Current' end 

Insert into tabQMS_Quotes( 
--QuoteRef_ID,
Status,        
AC_No,
Contact_No,
Risk_No,
RiskName_char,
Renewal_date,
TargetPremium_cur,
TargetInsurer_char,
Carrier_char,
QuoteReference_char,
CarrierSource_char,
QuotedPremium_cur,
Terms_note,
CreditTerms_char,
NextDiary_date        ,
RiskTransfer_char,
BrkComm_per,
BDComm_per,
ProductCode_char,
DiaryReason_note,
Recieved_date)

values(
--@QuoteRefID,#
@status,
@Ac_No, 
@Contact_No,
@Risk_No,
@RiskName_char,
@Renewal_date,
@TargetPremium_cur,
@TargetInsurer_char,
@Carrier_char,
@QuoteReference_char,
@CarrierSource_char,
@QuotedPremium_cur,
@Terms_note,
@CreditTerms_char,
@NextDiary_date        ,
@RiskTransfer_char,
@BrkComm_per,
@BDComm_per,
@ProductCode_char,
@DiaryReason_note,
@RecievedDate)

Set @MaxQuote = (SELECT QuoteRef_ID FROM tabQMS_Quotes WHERE QuoteRef_ID = any
(SELECT mAX(QuoteRef_ID) as QuoteNum from tabQMS_Quotes))

if @status = 'Declined' begin set @gnCodeInt = '1301' end --declined
else
begin set @gnCodeInt = '1300' end --curent


GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO
then I call the SP using the below code in MS ACCESS 2000 BUT i RECEIVE AN ERROR TOO MANY PARAMETERS IN THE SQL SERVER sp...IS THERE ? AND IF THERE IS NOT HOW CAN i FIX MY LITTLE PROBLEM!! THANKS

HTML Code:
Public Sub AddNewQuote()
On Error GoTo Err_Ac_No_AfterUpdate

    Dim stdoc As String
    Dim rsSet As New ADODB.Recordset
    Dim ObjCmd As Command
    Dim QuoteRefID As Integer
    Dim reReply_Str As String
    Dim gnCode As Integer
    
    Set rsSet = New ADODB.Recordset
    
    With rsSet
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .CursorType = adOpenDynamic
    End With
    
    Set ObjCmd = New Command
          
          With ObjCmd
   
            .ActiveConnection = gEDIBass
            .CommandType = adCmdStoredProc
            .CommandText = "Up_Ins_NewQuote"
            .Parameters.Append .CreateParameter("@QuoteRefID", adInteger,
adParamReturnValue)
            .Parameters.Append .CreateParameter("@gnCodeInt", adInteger,
adParamReturnValue)
            .Parameters.Append .CreateParameter("@status", adVarChar, adParamInput,
20, Declined)
            .Parameters.Append .CreateParameter("@Ac_No", adVarChar, adParamInput,
10, AC_NO)
            .Parameters.Append .CreateParameter("@Contact_No", adInteger,
adParamReturnValue)
            .Parameters.Append .CreateParameter("@Risk_No", adInteger,
adParamReturnValue)
            .Parameters.Append .CreateParameter("@Contact_Char", adVarChar,
adParamInput, 20, CmboContact)
            .Parameters.Append .CreateParameter("@RiskName_char", adVarChar,
adParamInput, 50, Risk_Name)
            .Parameters.Append .CreateParameter("@Renewal_date", adDBTimeStamp,
adParamInput, 12, Renewal_date)
            .Parameters.Append .CreateParameter("@TargetPremium_cur", adInteger,
adParamInput, 12, TargetPremium_cur)
            .Parameters.Append .CreateParameter("@TargetInsurer_char", adVarChar,
adParamInput, 12, TargetInsurer_char)
            .Parameters.Append .CreateParameter("@Carrier_char", adVarChar,
adParamInput, 12, Carrier_char)
            .Parameters.Append .CreateParameter("@QuoteReference_char", adVarChar,
adParamInput, 12, Quote_Ref)
            .Parameters.Append .CreateParameter("@CarrierSource_char", adVarChar,
adParamInput, 50, source_char)
            .Parameters.Append .CreateParameter("@QuotedPremium_cur", adVarChar,
adParamInput, 12, QuotedPremium_cur)
            .Parameters.Append .CreateParameter("@Terms_note", adVarChar,
adParamInput, 12, Terms_note)
            .Parameters.Append .CreateParameter("@CreditTerms_char", adVarChar,
adParamInput, 12, cmboCreditTerm)
            .Parameters.Append .CreateParameter("@NextDiary_date", adDBTimeStamp,
adParamInput, 12, NextDiary_date)
            .Parameters.Append .CreateParameter("@RiskTransfer_char", adVarChar,
adParamInput, 12, cmboRiskTransfer)
            .Parameters.Append .CreateParameter("@BrkComm_per", adVarChar,
adParamInput, 12, BrkComm_per)
            .Parameters.Append .CreateParameter("@BDComm_per", adVarChar,
adParamInput, 12, BDComm_per)
            .Parameters.Append .CreateParameter("@ProductCode_char", adVarChar,
adParamInput, 12, CmboProduct)
            .Parameters.Append .CreateParameter("@DiaryReason_note", adVarChar,
adParamInput, 12, DiaryReason_char)
    
    
        End With
    
    Set rsSet = ObjCmd.Execute
    
    QuoteRefID = rsSet.Fields("@QuoteRefID")
    gnCode = rsSet.Fields("gnCode_int")
    
    gnNote_Str = "New Quote - "
    
    If IsNull(Me.QuoteComments_note) = False Then
        gnNote_Str = gnNote_Str & Me.QuoteComments_note
    End If
    AddNote
     
    reReply_Str = MsgBox("Your Quote has been submitted" & vbCrLf & "Quote
Reference" & " " & QuoteRefID, vbOK, "Quote Submitted")
    
    
  
    rsSet.Close
    Set ObjCmd = Nothing
  
Exit_Ac_No_AfterUpdate:
    Exit Sub

Err_Ac_No_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Ac_No_AfterUpdate
    Resume
tHANKS