hent fra access database

Sådan her:

    Dim CON As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=C:\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 MinTabel"
    COM.CommandType = CommandType.Text

    DA.SelectCommand = COM
    DA.Fill(DT)

    DataGrid1.DataSource = DT

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

Med venlig hilsen

Janus Kamp Hansen