Here they are. Thanks for your time...Mike

if exists (select * from sysobjects where id = object_id('sp_AddCus') and sysstat & 0xf = 4)
drop procedure sp_AddCus
go

CREATE PROCEDURE sp_AddCus
@password ud_password,
@type ud_type,
@version ud_version,
@firm ud_firm,
@poc ud_poc,
@address1 ud_address1,
@address2 ud_address2,
@city ud_city,
@st ud_st,
@zip ud_zip,
@zip4 ud_zip4,
@Phone ud_phone,
@fax ud_fax,
@email ud_email,
@rate ud_rate
AS
insert into custfl (since,password,type,version,firm,poc,address1,address2,city,st,zip,zip4,phone,fax,email,rate)
values
(getdate(),@password,@type,@version,@firm,@poc,@address1,@address2,@city,@st,@zip,@zip4,@phone,@fax,@email,@rate)
go

------------------------ vfp code


scan
dum = ;
[exec Sp_AddCus ]+;
["]+allt(custfl.password)+[",]+;
["]+[AUTO]+[",]+;
+allt(str(4.0,5,2))+[,]+;
["]+allt(custfl.firm)+[",]+;
["]+allt(custfl.poc)+[",]+;
["]+allt(custfl.address1)+[",]+;
["]+allt(custfl.address2)+[",]+;
["]+allt(custfl.city)+[",]+;
["]+allt(custfl.st)+[",]+;
["]+allt(custfl.zip)+[",]+;
["]+allt(custfl.zip4)+[",]+;
["]+strtran(allt(custfl.phone),"-","")+[",]+;
["]+strtran(allt(custfl.fax),"-","")+[",]+;
["]+allt(custfl.email)+[",]+;
[2]

= SQLSETPROP(thisform.gConn, 'asynchronous', .F.)
nRetVal = SQLEXEC(thisform.gConn,dum,"Resultfl")

endscan