Function MyExecute(ByVal sSQL As String, ByRef vt As Variant) As Long
    
On Error GoTo LogErr
        
Dim cnnData As New ADODB.Connection

Set cnnData = CurrentProject.Connection
    
    Dim rst As New ADODB.Recordset

    Set rst = cnnData.Execute(sSQL)
    If UCase(Left(sSQL,  6 )) = "SELECT" Then
        If rst.RecordCount >  0  Then vt = rst.GetRows
    End If
    Exit Function

LogErr:
    MsgBox Err.Description
End Function

-----------------
    sSQL = "SELECT ... WHERE ..."         
             
    Glb_mts.MyExecute sSQL, vt
    
    If Not IsEmpty(vt) Then
        fdId = Trim(vt( 1 , i))
        fdNumber = Trim(nz(vt( 1 , i),""))
    End If
-----------------
    Glb_mts.MyExecute sSQL, vt

    sSQL = "SELECT @@Identity"
    Glb_mts.MyExecute sSQL, vt

    If Not IsEmpty(vt) Then ......
-----------------
    sSQL = "DELETE FROM ..."
    Glb_mts.MyExecute sSQL, vt
-----------------
    On Error GoTo ErrSub
    
    sSQL = "Begin Transaction"
    Glb_mts.MyExecute sSQL, vt
    
    sSQL = "INSERT INTO ..."
           
    Glb_mts.MyExecute sSQL, vt
    
    sSQL = "SELECT @@IDENTITY"
    
    Glb_mts.MyExecute sSQL, vt
    
    sSQL = "Commit Transaction"
    Glb_mts.MyExecute sSQL, vt
    
    If Not IsEmpty(vt) Then ...
    
    Exit Function
ErrSub:
    sSQL = "RollBack Transaction"
    Glb_mts.MyExecute sSQL, vt
    
    MsgBox Err.Description