Conexión a una bb.dd. Access
Previamente me he creado un directorio en mi dominio al que he llamado db y he copiado en el la base de daos Access
'Declaro la select
s = "SELECT * FROM NombreTablaAccess" & ";"
' Declarar la conexión
cnn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "c:\domains\xxxxxxxx.com\db\NombreMdbAccess.mdb" & ";")
'Abro la conexión
cnn.Open()
'Crear el DataSet
dbDataSet = New Data.DataSet
'Crear el DataAdapter
cmd = New OleDbDataAdapter(s, cnn)
'Para actualizar posteriormente
Dim commandBuilder As New OleDbCommandBuilder(cmd)
'Para indicarle que hay campo clave
cmd.MissingSchemaAction = MissingSchemaAction.AddWithKey
'Rellenar el dataset y dejarlo en memoria
cmd.Fill(dbDataSet, "TablaAnyadir")
'El data set esta en memoria, por lo que puedo cerar la conexión
cnn.Close()
