Imports System.Data.OleDb

Public Class Form1



Dim con As New OleDbConnection

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

datagridshow()



End Sub



Private Sub datagridshow()

Using con As New OleDbConnection
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source= C:\EYD\backup file.mdb; persist security info = false"

con.Open()

Dim dt As New DataTable

Dim da As New OleDbDataAdapter
da = New OleDbDataAdapter("select id1,site_name,process, PO_Number, link from tblfiles2", con)

da.Fill(dt)

DataGridView1.DataSource = dt.DefaultView


End Using

End Sub






Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

End Sub
End Class