COOL!!! =)

~~Bonnie


>>I think all you have to do is use the .ToString for the Key:
>>

>>                While loDictionaryEnumerator.MoveNext
>>                    oParameters2.Add(New OleDbParameter(loDictionaryEnumerator.Key.ToString(), loDictionaryEnumerator.Value))
>>                End While
>>

>>Have you tried this?
>
>Oh WOW! I never thought about that. This is working. I can now do this:
>
>

>        Dim loDataProvider As Framework.Data = New Framework.Data
>        loDataProvider.oParameters.Add("@Result", "String")
>        loDataProvider.oParameters.Add("@AddUser", 2)
>        If loDataProvider.SQLExec("SELECT * FROM WebService WHERE Result=? AND AddUser=?", _
>         Framework.App.aConnection(1)) = False Then
>            Exit Sub
>        End If
>

>
>I only have to adjust a few locations in some projects where I was passing a parameter to remove the provider specific syntax and use this generic approach.
>
>Thanks a lot