SqlDataSourceにトランザクションをかけて複数テーブルの更新

Protected Sub DbInsert()
  Dim sql As String = "INSERT INTO tableA …（省略）"
  Dim sql2 As String = "INSERT INTO tableB …（省略）"


  Try
    SqlDataSource1.InsertCommand = sql
    SqlDataSource1.InsertCommandType = SqlDataSourceCommandType.Text
    Using scope1 As New System.Transactions.TransactionScope()
      Dim intAffectA As Integer = SqlDataSource1.Insert()
      Dim intAffectB As Integer

      Using connection1 As New SqlConnection(SqlDataSource1.ConnectionString);
        connection1.Open()
        Dim relationInsertCommand As New SqlCommand(sql2, connection1)
        intAffectB = relationInsertCommand.ExecuteNonQuery() 
        connection1.Close()
      End Using

      If ((1 = intAffectA) AndAlso (1 = intAffectB)) Then
        scope1.Complete()
      End If 
    End Using
  Catch
  Finally
  End Try

End Sub