dim trans as SqlTransaction
 
Using con as New SqlConnection(connectionString)
    con.Open()
    Using trans = con.BeginTransaction()
        Dim adapter1 as new SqlDataDatapter("SELECT * FROM [Table1]", con)
        adapter1.SelectCommand.Transaction = trans
        Dim cb1 as new SqlCommandBuilder(adapter1)
 
        Dim adapter2 as new SqlDataDatapter("SELECT * FROM [Table2]", con)
        adapter2.SelectCommand.Transaction = trans
        Dim cb2 as new SqlCommandBuilder(adapter2)
 
        adapter1.Update(ds, "Table1")
        adapter2.Update(ds, "Table2")
 
        trans.Comit()
 
    end using
end using