Dim conn As New System.Data.OleDb.OleDbConnection
conn = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source = C:\GrandviewNHDemo300.mdb ;Persist Security info = False")
conn.Open()
Dim objDataAdapter As New OleDbDataAdapter("Select * from syscod", conn)
Dim ds As New Data.DataSet
objDataAdapter.Fill(ds, "Tabel0")
DataGrid1.DataSource = ds
DataGrid1.DataBind()