Hi!I can retrieve data from my Table1 and display it in datagrid view. some of the Table1 fields are the same with Table2 fields. What I like is that whenever I make changes (add, edit, delete) to table1, the same changes will reflect to table2.

Basically, the code is already working for table1 only I added some codes to try it out if it will work for table2(the commented codes).
Code:
Public Class frmEditTbl
    Dim cnn As New SqlConnection
    Dim delete As New SqlCommand
    Dim insert As New SqlCommand
    Dim updates As New SqlCommand
    'Dim updates1 As New SqlCommand
    Dim adapter As New SqlDataAdapter
    'Dim adapter1 As New SqlDataAdapter
    'Dim builder As New SqlCommandBuilder(adapter)

    Dim dsEnrolFile As New DataSet
    Dim dsStudFile As New DataSet

    Private Sub frmEditProfile_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cnn = New SqlConnection("Data Source=.\sqlexpress;Initial Catalog=MYDB;Integrated Security=True")
        adapter = New SqlDataAdapter("SELECT DISTINCT (IDNO),LastName,Firstname, MiddleName,Gender,SectionName,Yearlevel FROM tbl1", cnn)
        'adapter1 = New SqlDataAdapter("SELECT DISTINCT (IDNO),LastName,Firstname, MiddleName,Gender FROM tbl2", cnn)

        delete = New SqlCommand("DELETE FROM tbl1 WHERE ID = @ID", cnn)
        insert = New SqlCommand("INSERT INTO tbl1 (IDNO, LastName, FirstName, MiddleName) VALUES (@IDNO, @LastName, @FirstName, @MiddleName)", cnn)
        updates = New SqlCommand("UPDATE tbl1 SET LastName=@LastName,FirstName=@FirstName,MiddleName=@MiddleName,Gender=@Gender,SectionName=@SectionName,YearLevel=@YearLevel WHERE IDNO = @IDNO", cnn)
        'updates = New SqlCommand("UPDATE tbl2 SET IDNO=@IDNO,LastName=@LastName,FirstName=@FirstName,MiddleName=@MiddleName,Gender=@Gender WHERE IDNO = @IDNO", cnn)
        delete.Parameters.Add("@ID", SqlDbType.NVarChar, 100, "IDNO")

        insert.Parameters.Add("@IDNO", SqlDbType.NVarChar, 10, "IDNO")
        insert.Parameters.Add("@FirstName", SqlDbType.NVarChar, 100, "FirstName")
        insert.Parameters.Add("@MiddleName", SqlDbType.NVarChar, 100, "MiddleName")
        insert.Parameters.Add("@LastName", SqlDbType.NVarChar, 100, "LastName")

        updates.Parameters.Add("@IDNO", SqlDbType.NVarChar, 100, "IDNO")
        updates.Parameters.Add("@FirstName", SqlDbType.NVarChar, 100, "FirstName")
        updates.Parameters.Add("@MiddleName", SqlDbType.NVarChar, 100, "MiddleName")
        updates.Parameters.Add("@LastName", SqlDbType.NVarChar, 100, "LastName")
        updates.Parameters.Add("@Gender", SqlDbType.NVarChar, 100, "Gender")
        updates.Parameters.Add("@SectionName", SqlDbType.NVarChar, 100, "SectionName")
        updates.Parameters.Add("@YearLevel", SqlDbType.NVarChar, 100, "YearLevel")

        adapter.DeleteCommand = delete
        adapter.InsertCommand = insert
        adapter.UpdateCommand = updates

        adapter.MissingSchemaAction = MissingSchemaAction.AddWithKey

        Dim table As New DataTable
        'Retrieve the data.
        adapter.Fill(dsEnrolFile, "tbl1")
        'adapter1.Fill(dsStudFile, "tbl2")

        'bind datagrid view
        dtgEnrolFile.DataSource = dsEnrolFile.Tables("tbl1")

      End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        'Save the changes.
        adapter.Update(dsEnrolFile.Tables("tbl1"))
        'adapter1.Update(dsStudFile.Tables("tbl2"))
        MessageBox.Show("Record Successfully Saved.", "SAVE")
    End Sub
Any help please?