→→→VB2008 ACCESS2007との接続

Imports System.Data.OleDb

Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\**.accdb)
Dim SQLcm As OleDbCommand = cn.CreateCommand
Dim Adapter As New OleDbDataAdapter(SQLcm)
Dim Table As New DataTable

'SQL命令
Adapter.Fill( Table )
'データグリッドに表示
DataGridView1.DataSource = Table

Table.Dispose()
Adapter.Dispose()
SQLcm.Dispose()
cn.Dispose()