Code:

Imports System.Data.OleDb


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'deo koda koji radi sa access bazom
        ' napravimo   string za konekciju na bazu
        Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\User\My Documents\db1.mdb"
        Dim myConnection As OleDbConnection = New OleDbConnection
        myConnection.ConnectionString = connString
        ' napravimo  data adapter 
        Dim sql1 As String
        sql1 = "Select ind,br,dim,ime, dug from novo"
        Try
            Dim accessAdapter As OleDbDataAdapter = New OleDbDataAdapter(sql1, myConnection)
            ' kreiramo novi dataset 
            Dim skuppodataka As DataSet = New DataSet
            ' napunimo dataset  sa podacima
            accessAdapter.Fill(skuppodataka)
            DataGrid1.DataSource = skuppodataka.DefaultViewManager
            myConnection.Close()
        Catch ex As Exception
            MessageBox.Show("Doslo je do greske u radu sa Access bazom - ponovite operaciju", "UPOZORENJE", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try