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()