Выполнить набор delete и insert запросов в одном String - VB

Формулировка задачи:

Ребят, приветствую!
Подскажите пожалуйста:
Есть набор запросов к MyTABLE (Id int, Colm int) в MS SQL, значения которых сформировал со страницы и записал все в один String.
1) Не могу понять как отследить ошибку, если хоть один запрос не прошел.
Например ошибку с неверным типом данных во 2-ом insert.
В данном случае не ругается ни на что, хотя запрос не прошел в БД ...

Sub Connection()
Dim con As New ADODB.Connection
Dim strQ As String

On Error GoTo ErrorHandler
con.ConnectionString = "Provider=SQLNCLI10.1;Server=SRV-SQL;Database=MyDB;Trusted_Connection=yes;"
con.Open
con.BeginTrans

  strQ = "delete from MyTABLE where ID = 1 " 
  strQ = strQ + "insert into MyTABLE VALUES (1,1)"     
  'второй insert должен вернуть ошибку
  strQ = "delete from MyTABLE where ID = 2 "
  strQ = strQ + "insert into MyTABLE VALUES (2,'FAIL')"     

 con.Execute strQ, adCmdText
con.CommitTrans
con.Close
Set con = Nothing

Exit Sub
 
ErrorHandler:
 Debug.Print "Err: " & Err.Source & "-->" & Err.Description & "-->" & Err.Number
 con.RollbackTrans
    If Not con Is Nothing Then
        If con.State = adStateOpen Then con.Close
    End If
    Set con = Nothing 
End Sub

... хотя если подавать только один запрос, то он ругнется Err: Microsoft SQL Server Native Client 10.0-->Error converting data type varchar to numeric.-->-2147217913

strQ = strQ + "insert into MyTABLE VALUES (2,'FAIL')"

2) Или тут стоит выполнять execute отдельно для каждого запроса и откатываться в случае возникновения ошибки? Аукнется на производительности?!
3) Есть ли механизм пакетной отправки запросов в БД?

Решение задачи: «Выполнить набор delete и insert запросов в одном String»

textual
                            Листинг программы 
                        
                            "delete from MyTABLE where ID = 2  insert into MyTABLE VALUES (2,'FAIL')"