一、你的SQL语句有问题,改为:
adocon1.Execute ("create proc test4 @nqdrq1 int,@njzrq1 int,@cbmmc1 varchar(10),@ctime1 varchar(11)" & _
    vbCrLf & "as" & vbCrLf & "declare @autotmp int" & vbCrLf & "select @autotmp=max(auto) from infor" & vbCrLf & _
    "select @autotmp=@autotmp+1" & vbCrLf & "insert into infor (auto,nqdrq,njzrq,cbmmc,ctime) values (@autotmp" & _
    ",@nqdrq1,@njzrq1,@cbmmc1,@ctime1)")二、用相应的SQL语句就可以!具体的记不清楚了。来VB版看热闹来着!