Public Class Form1
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim tb As DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con = New ADODB.Connection
rs = New ADODB.Recordset
tb = New DataTable
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\AMEER & SONS\AMEER&SONS.mdb;Persist Security Info=False"
con.CursorLocation = ADODB.CursorLocationEnum.adUseClient
con.Open()
rs.Open("company_info", con, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, 2)
Dim da As New System.Data.OleDb.OleDbDataAdapter()
Dim ds As New DataSet()
da.Fill(ds, rs, "company_info")
rs.ActiveConnection = Nothing
con.Close()
rs = Nothing
con = Nothing
grid.DataSource = (ds.Tables("company_info"))
End Sub
End Class