' Add a parameter ' expC1 Field ' expO1 Value Public Function ParameterAdd(ByVal tcField As String, ByVal toValue As Object) As Boolean Dim loParameter(1, 2) As Object loParameter(1, 1) = tcField loParameter(1, 2) = toValue ' If toValue is a boolean, we have to adjust the value, if necessary, as per the backend If ... Then End If oParameters.Add(loParameter) End Function