How to pass params to Access2000

[Desbaratizador]

With a ADODB.Command you can pass the parameters to the Execute method, example:

dim CMD as ADODB.Command
dim rs as ADODB.Recordset

set CMD = new ADODB.Command
with CMD
.ActiveConnection = CN
.CommandType = adCmdStoredProc
.CommandText = "XXX"
set rs = .Execute(, Array(Param1, Param2, ...))
end with

or create Parameter objects and append them to the Command object

dim P as ADODB.Parameter

Set P = New ADODB.Parameter
With P
.Name = "MyParameterName"
.Type = adDate
.Direction = adParamInput
.Value = MyDate
End With
CMD.Parameters.Append P
'Append parameter 2

set rs = CMD.Execute()