se non sbaglio:

codice:
Public Class Form1
    Dim connessione As New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db1.mdb")
    Dim commandBuilder As Data.OleDb.OleDbCommandBuilder
    Dim dataAdapter As Data.OleDb.OleDbDataAdapter
    Dim dataSet As DataSet