Visual Basic.NET - Conectar una Tabla de una BD ACCESS a un DataGrid

Hola, un saludo. En anteriores ocasiones me han ayudado, por favor no me dejen colgado. Escribi:...

'CREACION DE LAS VARIABLES

Dim DataAdapter As Data.SqlClient.SqlDataAdapter
Dim DataSet As Data.DataSet

'LLENA EL DATASET CON LOS CAMPOS DE LA TABLA

Dim sCon As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:AprenderAprender bd1.mdb "

Dim Conexion1 As New Data.SqlClient.SqlConnection(sCon)

DataAdapter = New Data.SqlClient.SqlDataAdapter("SELECT * FROM Importada1", Conexion1)

DataSet = New Data.DataSet

Conexion1.Open()
DataAdapter.Fill(DataSet, "Importada1")
Conexion1.Close()

'ENLAZA EL DATASET CON UN DATAGRIDVIEW
DataGrid1.DataSource = DataSet
DataGrid1.DataMember = "Importada1"

…Al ejecutar la Forma me dio el error:

Excepción no controlada del tipo 'System.ArgumentException' en system.data.dll

Información adicional: Palabra clave no admitida: 'provider'.

...Trate, pero me imagino que debe de ser una libreria que no declare, a lo mejor. Cree una conexión a Base de Datos, en la propiedad ConnectionString se encuentra el siguiente valor:

Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Database Password=; Data Source= "C:AprenderAprenderd1.mdb"; Password=;Jet OLEDB:Engine Type=5;Jet OLEDB:Global Bulk Transactions=1; Provider="Microsoft.Jet.OLEDB.4.0";Jet OLEDB:System database=;Jet OLEDB:SFP=False;Extended Properties=;Mode=Share Deny None;Jet OLEDB:New Database Password=;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Encrypt Database=False

…Como se puede notar:

Provider="Microsoft.Jet.OLEDB.4.0" y Data Source= "C:AprenderAprenderd1.mdb"

¿Que me falto en la declaracion? El Proveedor que declara el Visual Basic .NET que tengo se llama: Microsoft Jet 4.0 OLE Provider

Por favor ¿Que he hecho mal para que me de el error? O ¿Como puedo conectar un DataGrid a la Tabla en la conexión a la BD ACCESS?

Atentamente,

Daniel

Claro que te botara un error, uno al leer el inicio se da cuenta:

Estas usando: Dim Conexion1 As New Data.SqlClient.SqlConnection(sCon)

SQL

SQL, es para base de datos SQL, lo que deberias usar es OLEDB:

Dim Conexion1 As New OleDbConnection(sCon)

Y cambiar todo donde tenga sql por OleDb.

Suerte!

no sirve el SqlClient para conectarse a una base access debes usar OleDb

ejemplo :

asi lo tienes

Dim DataAdapter As Data.SqlClient.SqlDataAdapter

debe ser

Dim DataAdapter As Data.OleDb.OleDbDataAdapter

me parece que SqlClient es solo para bases SQL-SERVER