Try
Me.BindingContext(DsDataSetB1, "TableName").EndCurrentEdit()
Catch eEndEdit As System.Exception
System.Windows.Forms.MessageBox.Show(eEndEdit.Message)
End Try
Dim tblTableB As DataTable
tblTableB = DsDataSetB1.Tables("TableName")
Dim drRowB As DataRow
drRowB = tblTableB.NewRow()
' Set the DataRow field values as necessary.
drRowB ("NewField1") = [COLOR=Green]'value in grid A column1[/COLOR]
drRowB ("NewField2") = [COLOR=Green]'value in grid A column2[/COLOR]
drRowB ("NewField3") = [COLOR=Green]'value in grid A column3[/COLOR]
drRowB ("NewField4") = [COLOR=Green]'value in grid A column4[/COLOR]
tblTableB.Rows.Add(drRowB )