Public Class ClassData1
Public Sub AccessLink()
Dim gt As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\tmd.mdb;Persist Security Info=False"
Dim itgt As OleDb.OleDbConnection = New OleDb.OleDbConnection(gt)
Dim tablink As String = "select * from tmb"
Dim sit As OleDbCommand = New OleDbCommand(tablink, itgt)
itgt.Open()
Dim gba As OleDbDataReader = sit.ExecuteReader
Do While gba.Read()
MessageBox.Show(gba("id"))