Keyword not supported: 'provider'.

[rodi170]

hola amigos del foro
tengo un inconveniente con una conexion yo utilizo oracle con visual sistema operativo windows 2003 server, me aparece el siguiente error:

Keyword not supported: 'provider'.
Descripción: Excepción no controlada al ejecutar la solicitud Web actual. Revise el seguimiento de la pila para obtener más información acerca del error y dónde se originó en el código.

Detalles de la excepción: System.ArgumentException: Keyword not supported: 'provider'.

Error de código fuente:


Línea 6:
Línea 7: Public Class ClassORACLE
Línea 8: Private conexion1 As New System.Data.OracleClient.OracleConnection(Configur ationSettings.AppSettings("Conexion.ConnectionStri ng"))
Línea 9: Private conexion As New OleDbConnection(ConfigurationSettings.AppSettings( "Conexion.ConnectionString"))
Línea 10:




el codigo fuente es el siguiente:


Imports System.Data
Imports System.Data.oledb
Imports System.Configuration
Imports System.Data.OracleClient


Public Class ClassORACLE
Private conexion1 As New OracleConnection(ConfigurationSettings.AppSettings ("Conexion.ConnectionString"))
Private conexion As New OleDbConnection(ConfigurationSettings.AppSettings( "Conexion.ConnectionString"))

Public Function Consultaoracle(ByVal consulta As String) As DataSet
Dim dt As New DataSet
Dim cmd As New OracleCommand
Dim myCommand As New OracleDataAdapter(consulta, conexion1)
conexion.Open()
myCommand.Fill(dt, "t1")
conexion.Close()
Return dt
End Function
Public Function InsertarOracle(ByVal consulta As String) As Integer
Dim valido As Integer
Dim cadenaconexion As String
cadenaconexion = "User ID=regis;password = kzpz1250;Data Source=kyara"
Dim myCommand As New OracleCommand(consulta, conexion1)
conexion.Open()
valido = myCommand.ExecuteNonQuery
conexion.Close()
Return valido
End Function
Public Function InsertarOracle2(ByVal consulta As String) As Integer
Dim valido As Integer
Dim myCommand As New OracleCommand(consulta, conexion1)
myCommand.CommandType = CommandType.StoredProcedure
conexion.Open()
valido = myCommand.ExecuteNonQuery
conexion.Close()
Return valido
End Function

Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
End Class


no se alguien que me pueda colaborar con alguna solucion le agradeceria enormemente.