Public Sub ExecStoreProc(ByVal p_ProcName As String, ParamArray p_Param())
Dim lngIParam As Long
With mConnection.gcCommand
.CommandText = p_ProcName
For lngIParam = 0 To UBound(p_Param()) Step 2
.Parameters(p_Param(lngIParam)).Value = p_Param(lngIParam + 1)
Next lngIParam
.Execute
End With
End Sub

mConnection.gcCommand -Это твой connection
Если хочешь вернуть параметр то
.Parameters("@yourparam").Direction = adParamOutput
а после execute
debug.print .Parameters("@yourparam").Value

p_Param() - массив параметров организован по принципу( параметр,значение,...)
Удачи