transactions in vb6(sp3) and sql6.5 db

I have an application that I support, I didn't write it, but I need to make some enhancements to it...for the following procedure I needed to update the SQL statement to update the database because I added some fields to the table in the SQL 6.5 db (this isn't the problem) the following code is to update the customer table when the user makes a change (the user pulls this record up from a list of records that he has pending, he selects this record and it populates the tracking form) let's say the user changes the phone number on this record, he then selects the save button at the top of the form....as you look at this code notice the 'comments because I have been trying to correct this all day....first error I got says that there is no active record open, when I debug, it points me to the "gConnection.RollbackTrans" statement, tellin me that there is not active transaction...it did this for a while and then I got a different error, that there was already an ODBC connection open.....so I closed out got back me and now I'm getting the first error again....can anyone look at my code and explain to me what is happening and what I can do to fix the problem, I am not that familiar with transactions so any advice along the way would be appreciated (explain to me the 2nd problem as well)...thanks in advance for your help...Schuyler

Here is the history for this question, I am still desperate to find a solution, this app was just rolled out on new pc's and I'm getting all sorts of run time errors, "No transaction is active" and unfortunately I have hardly a clue as to why!!!!
https://www.experts-exchange.com/jsp/qManageQuestion.jsp?ta=visualbasic&qid=20293723

thanks in advance for your continued support and assistance!!

here's the code

Private Sub UpdateCustADO()

   Dim strSQL As String, strState As String, strPhone As String
   'Dim strCustInfoChg As String
   'Dim bolTrans As Boolean
   
   Screen.MousePointer = vbHourglass
   On Error GoTo SQLError
   
   If cboState.Tag = "DB" Then
       strState = cboState.Text
   Else
       strState = cboState.Tag
       'strState = TranslateStateCode(cboState.ItemData(cboState.ListIndex))
   End If
   
   strPhone = Trim(LCase(txtPhone))
   
   If strPhone = "declined" Or strPhone = "refused" Then
       strPhone = txtPhone
   Else
       strPhone = StripNonDigits(txtPhone)
   End If
   'bolTrans = True
   'gConnection.BeginTrans
   strSQL = "update customer set lastname = '" & FixQuotes(txtLast, "'") & _
            "', firstname = '" & FixQuotes(txtFirst, "'") & "', mi = '" & txtMI & _
            "', address1 = '" & FixQuotes(txtAddress(0), "'") & _
            "', address2 = '" & FixQuotes(txtAddress(1), "'") & _
            "', city = '" & FixQuotes(txtCity, "'") & _
            "', state = '" & strState & _
            "', zip = '" & txtZip & _
            "', phone = '" & strPhone & _
            "', datetimestamp = '" & Date & " " & Format(Time, "hh:nn:ss") & _
            "', email = '" & FixQuotes(txtEMail, "'") & _
            "', BDOptIn = '" & FixQuotes(Left$(CStr(optBD), 1), "'") & "', DWOptIn = '" & FixQuotes(Left$(CStr(optDW), 1), "'") & _
           "', CustInfoChg = '" & FixQuotes(Me.chkCustInfoChg, "'") & "' where enduserid = " & txtCustID
           
          '  '"', " & " where enduserid = " & txtCustID
         '  ", Country = '" & strCountry & "'" & " where contactid = " & txtCallID
  'original loc
   gConnection.BeginTrans
   gConnection.Execute strSQL
   gConnection.CommitTrans
   'bolTrans = False

   gADOrst.Requery
   Screen.MousePointer = vbDefault
   Exit Sub

SQLError:
   'made change to code to reverse the next two lines of code in both update routines,
   'need to rollback the transaction, free up locks first, before user gets error msg
   'gConnection.RollbackTrans
   
   HandleError Err
   'MsgBox "Could not update. Error:" & Err.Number & " " & Err.Description & " Source: " & _
   'Err.Source
   'If bolTrans Then
   'gConnection.RollbackTrans
   'bolTrans = False
   'End If
   gConnection.RollbackTrans
   MsgBox "Sorry, the server was unable to save the customer.  Please try again.", vbOKOnly, "SQL Error"
   
   On Error Resume Next
   Err.Clear
   On Error GoTo 0
   'gConnection.Close
End Sub