01.
Imports
System.Data
02.
Imports
System.Data.OleDb
03.
04.
Public
Class
Form1
05.
06.
Private
Sub
Form1_Load(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
MyBase
.Load
07.
Dim
con
As
OleDbConnection
08.
con =
New
OleDbConnection(
"Provider=Microsoft.ACE.OLEDB.15.0;Data Source=C:\Users\Admin\Dropbox\Database\ComDB.mdb;Persist Security Info=False"
)
09.
Dim
Sql
As
String
=
"select * from product"
10.
Dim
DA
As
New
OleDbDataAdapter(Sql, con)
11.
Dim
DS
As
New
DataSet
12.
DA.Fill(DS)
13.
MsgBox(DS.Tables(0).Rows(0).Item(1))
14.
End
Sub
15.
End
Class