>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