eu testei assim e funcionou:
Dim cmn As New Command
cmn.ActiveConnection = Cnn
cmn.CommandText = "spTable3"
cmn.CommandType = adCmdStoredProc
cmn.Parameters("@Numero") = "02"
cmn.Parameters("@Teste") = "02"
cmn.Execute
MsgBox "ok"
Set cmn = Nothing
Create Procedure spTable3 (
@Numero Varchar(10),
@Teste Varchar(10)
)
As
-- Declare @Numero As Varchar(10)
-- Declare @Teste As Varchar(10)
-- Set @Numero = '01'
-- Set @Teste = '01'
Insert Into Table3 (Numero, Teste) Values (@Numero, @Teste)
