Visual Basic

Dim MyQuery1 as String="Select t1.item_id,t1,group_id,t2.unit_price from Table1 t1 left outer join Table2 t2 on T1.Item_ID=T2.Item_ID"
Dim DAp1 as SqlDataAdapter,Ds1 as New DataSet

Con.Open()
DataAdapter1=New SqlDataAdapter(MyQuery1,Con)
DataAdapter1.Fill(Ds1)
Con.Close()

Dim Sav1 As String = "insert into table1 (item_id,group_id,????????unit_price) values (@item_id,@group_id,?????????@unit_price)"
Dim Sav2 As String = "update table1 set item_id=@item_id,group_id=@group_id,???????unit_price=@unit_price where item_id=@item_id"

DAp1.InsertCommand = New SqlCommand(Sav1, con)
DAp1.UpdateCommand = New SqlCommand(Sav2, con)

With DAp1.InsertCommand.Parameters
     .Add("@item_id", SqlDbType.VarChar, 15, "item_id")
     .Add("@group_id", SqlDbType.VarChar, 5, "group_id")
???????????     .Add("@unit_price", SqlDbType.Decimal, 18, "unit_price")
End With

With DAp1.UpdateCommand.Parameters
     .Add("@item_id", SqlDbType.VarChar, 15, "item_id")
     .Add("@group_id", SqlDbType.VarChar, 5, "group_id")
????????     .Add("@unit_price", SqlDbType.Decimal, 18, "unit_price")
End With 

con.ConnectionString = ConStr_2
con.Open()
    Dim Trans1 As SqlTransaction
    Trans1 = con.BeginTransaction
    DAp1.UpdateCommand.Transaction = Trans1
    DAp1.InsertCommand.Transaction = Trans1

            Try
                MyDataGrid1.CurrentCell = MyDataGrid1.FirstDisplayedCell
                MyDataGrid1.EndEdit()
                DAp1.Update(Ds1.Tables(0))
                Trans1.Commit()
            Catch ex As Exception
                If Not Trans1 Is Nothing Then
                    Trans1.Rollback()
                End If
                MsgBox(ex.Message)
            End Try
con.close()

oField = oFields["http://schemas.microsoft.com/cdo/configuration/urlproxyserver"];
oField.Value = "itgproxy";
oField = oFields["http://schemas.microsoft.com/cdo/configuration/proxyserverport"];
oField.Value = 80;