Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & "D:\Database.mdb" Dim cnOleDb As New OleDbConnection(strConnection) cnOleDb.Open() Dim dsResults As New DataSet Dim strSQL As String = "SELECT * FROM ADMISSION" Dim dtAdapter As New OleDbDataAdapter(strSQL, cnOleDb) dtAdapter.Fill(dsResults) DataGrid1.DataSource = dsResults cnOleDb.Close() End Sub