I have this nice function which receives a varianttype as the second parameter:

    ' Add a parameter in the hashtable
    ' expC1 Field
    ' expO1 Value
    Public Function ParameterAdd(ByVal tcField As String, ByVal toValue As VariantType) As Boolean
        oParameters.Add("@" + tcField, toValue)
    End Function

When I try to pass a date to the second parameter, I have a message that says that the date cannot be converted to a varianttype. Is there a workaround for that?