01.
con.ConnectionString =
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\Users\admim\Desktop\ฐานข้อมูล31.accdb"
02.
con.Open()
03.
04.
Dim
ds
As
New
DataSet
05.
Dim
dt
As
New
DataTable
06.
ds.Tables.Add(dt)
07.
Dim
da
As
New
OleDbDataAdapter
08.
da =
New
OleDbDataAdapter(
"SELECT * FROM query3"
, con)
09.
da.Fill(dt)
10.
DataGridView1.DataSource = dt.DefaultView
11.
con.Close()