hey guys can someone please tell me what im doing wrong.

My sproc is something like this:

Code:
create proc dt_addnewcustomer
@CustIsInactive bit,
@CustFName varchar(100)
SET NOCOUNT ON
AS 
insert into tlbcustomers (CustFName, CustIsInactive) VALUES (@CustFname, @CustIsInactive)

go
my vbcode is like this:

VB Code:
  1. dim CustIsInactive as boolean
  2. CustIsInactive = false
  3. Set adocommand = New ADODB.Command
  4. With adocommand
  5. .ActiveConnection = con
  6. .CommandType = adCmdStoredProc
  7. .CommandText = "dt_addnewcustomer"
  8. .Parameters.Append .CreateParameter("@CustFName", adVarChar, adParamInput, 100, Trim(CustFName.Text))
  9. .Parameters.Append .CreateParameter("@CustIsInactive", adboolean, adParamInput, 1, CustIsInactive)
  10. .Execute , , adCmdStoredProc + adExecuteNoRecords
  11. Set adocommand = Nothing
  12. end with

I really dont see what im doing wrong, and it's driving me nuts!! Someone please help