Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DB.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim DataSetTable As New DataSet
Dim SQLTable As String = "Select * from Table"
DataSetTable.Clear()
Conn.Open()
Dim DataAdapterStudants As New OleDbDataAdapter(SQLTable, Conn)
DataAdapterStudants.Fill(DataSetTable, "Table")
Conn.Close()
DataGridView1.DataSource = DataSetTable
DataGridView1.DataMember = "Table"
DataGridView1.Refresh()