Imports System.Data.OleDb
Public Class Form1
    Dim das1 As New DataSet
    Dim dap1 As New OleDbDataAdapter()

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cnn1 As _
               System.Data.OleDb.OleDbConnection = _
               ConnectToNorthwind()

       Dim str1 As String = "SELECT * FROM ReqDetails"
        Dim cmd1 As _
            New System.Data.OleDb.OleDbCommand( _
            str1, cnn1)

              dap1.SelectCommand = cmd1

              Dim cmb1 As New _
            OleDbCommandBuilder()
        cmb1 = _
            New OleDbCommandBuilder(dap1)

            dap1.Fill(das1, "Shippers")
        With DataGrid1

            .DataSource = das1.Tables("Shippers")
        End With

    End Sub
    Function ConnectToNorthwind() As OleDbConnection
      im str1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\JBB\My Documents\NSReq.mdb;Persist Security Info=False"
        Dim cnn1 As New OleDbConnection
        cnn1.ConnectionString = str1
        Return cnn1
    End Function

    Private Sub bttnPopulate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnPopulate.Click
            das1.Tables("Shippers").Clear()
            Me.DataGrid1.DataSource = Me.das1.Tables("Shippers")

               dap1.Fill(das1, "Shippers")

    End Sub

    Private Sub bttnModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnModify.Click
             dap1.Update(das1, "Shippers")
    End Sub

  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dRow As DataRow = Me.das1.Tables("Shippers").NewRow()
        dRow("ReqNumber") = "Farooq"
        dRow("Date") = "55858"
               das1.Tables("Shippers").Rows.Add(dRow)
             dap1.Update(das1, "Shippers")
    End Sub
End Class