Hente fra access til DataGridView

Dette eksempel viser hvordan det kan gøres:

Dim CON As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\database.mdb")
    Dim COM As New OleDb.OleDbCommand
    Dim DA As New OleDb.OleDbDataAdapter
    Dim DT As New DataTable

    CON.Open()
    COM.Connection = CON
    COM.CommandText = "SELECT * FROM [Tabel]"
    COM.CommandType = CommandType.Text

    DA.SelectCommand = COM
    DA.Fill(DT)

    DataGridView1.DataSource = DT

    CON.Close()
    CON.Dispose()
    COM.Dispose()

OK?