Dim strConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
  "Source = c:\DBs.mdb;" 
Dim objConnection As New OleDbConnection(strConnectionString) 
 
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load 
 
Me.OleDbDataAdapter1.SelectCommand = New OleDbCommand("SELECT * FROM AP ORDER" & _
  "BY Subject", objConnection) 
Me.OleDbDataAdapter1.Tables.Add(New DataTable("AP")) 
Me.OleDbDataAdapter1.Fill(Me.DataSet11.Tables("AP")) 
Me.DataGrid1.DataSource = Me.DataSet11.Tables("AP") 
 
End Sub 
 
Private Sub Form3_Closing(ByVal sender As Object, ByVal e As _
  System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
 
Me.OleDbDataAdapter1.AcceptChangesDuringFill = True 
Me.OleDbDataAdapter1.Update(Me.DataSet11.Tables("AP")) 
 
End Sub