deberias ampliar tu respuesta colocando hasta donde te quedaste con el codigo fuente....
With BaseDatosConexion
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=BaseDatos.accdb"
.Open()
End With
Dim BaseDatosDataAdapter As New OleDbDataAdapter("SELECT * FROM NombreTabla", BaseDatosConexion)
Dim BaseDatosDataSet As New DataSet
BaseDatosDataAdapter.Fill(BaseDatosDataSet)