|
Public Sub DeleteCustParam()
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = CurrentProject.Connection
.CommandText = "qryDeleteCompany"
.CommandType = adCmdStoredProc
Set prm = cmd.CreateParameter(Name:="MyParam", Type:=adInteger,Direction:=adParamInput).Parameters.Append prm
prm.Value = 13
.Execute
End With
End Sub
|