commit/rollback ado transaction

Hi,

The following is my vb code using access database.  I try to simulate the rollback action but not all the transaction is fully rollbacked.  Only transaction in UpdBillDetData and UpdBillHdrData can be rollbacked. The transaction in RunSQL1(strSQL1, cnnPhoneData),RunSQL1(strSQL, cnnPhoneData) and RunSQL1(strSQL3, cnnPhoneData) can not be rollbacked.  (fyi,UpdBillDetData and UpdBillHdrData are using recordset.update to update the record) Why? How to solve it?
   

Sub EditRec()
    Dim strSQL As String
    Dim strSQL1 As String
    Dim strSQL2 As String
    Dim strSQL3 As String
    Dim strSQL4 As String
    Dim strSQL5 As String
    Dim SStr As String
    Dim cmd As ADODB.Command
    Dim TmpTbl As String
    Dim rsTmptbl As ADODB.Recordset
    Dim rsBillHdr As ADODB.Recordset

    Set cmd = New ADODB.Command
   
    strSQL = "INSERT INTO " _
           & "BillDetHist " _
           & "Select * " _
           & "FROM BillDet in '" & DataMasPath & "'" _
           & " where " _
           & " BillNbr = '" & Trim(BillNbrTxt.Text) & "'"
 
    strSQL1 = "INSERT INTO " _
           & "BillHdrHist " _
           & "Select * " _
           & "FROM BillHdr in '" & DataMasPath & "'" _
           & " where " _
           & " BillNbr = '" & Trim(BillNbrTxt.Text) & "'" _
           & " and ActiveStatusFlag = '1'"
   
    strSQL3 = "Delete from " _
           & "BillDet " _
           & " where " _
           & " BillNbr = '" & Trim(BillNbrTxt.Text) & "'"
   
    strSQL4 = "Select * from " _
           & "BillHdr " _
           & " where " _
           & " BillNbr = '" & Trim(BillNbrTxt.Text)  "'"        

    strSQL = "INSERT INTO " _
           & "BillDetHist " _
           & "Select * FROM BillDet in '" & DataMasPath & "'" _
           & " where " _
           & " BillNbr = '" & Trim(BillNbrTxt.Text) & "'"

    Set rsBillHdr = RunSQLReturnRSforUpd(strSQL4, , cnnPhoneData)

cnnPhoneData.BeginTrans
 cnnPhoneTmpData.BeginTrans
    'Insert into BillHdrHist
    Call RunSQL1(strSQL1, cnnPhoneData)
   
    'Insert into BilldetHist
    Call RunSQL1(strSQL, cnnPhoneData)
   
    'Del BillDet
    Call RunSQL1(strSQL3, cnnPhoneData)
 
    'insert record into BillDet table  
    'from tmpbilldetaildata
    Call UpdBillDetData
    Call UpdBillHdrData(rsBillHdr)
    cnnPhoneTmpData.RollbackTrans
    cnnPhoneData.RollbackTrans
    'simulate the rollback trx
'cnnPhoneData.CommitTrans
    Set rsBillHdr = Nothing
   
    Exit Sub
   

End Sub


Sub RunSQL1(ByVal strSQL As String, Optional ByVal strConn As String)
On Error GoTo Err_RunSQL
   
    ' Create the ADO objects
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command

    ' Init the ADO objects & the stored proc parameters
    cmd.ActiveConnection = strConn
   
    With cmd
        .CommandText = strSQL
        .CommandType = adCmdText
    End With
   
    ' Execute the query without returning a recordset
    cmd.Execute , , adExecuteNoRecords
   
    ' Cleanup
    cmd.ActiveConnection = Nothing
    Set cmd = Nothing
    Exit Sub
   
End Sub