VB6にてoo4oからODBC接続に変更する方法

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
VB6で書かれたoo4oで接続するClassを
ODBC接続に変えたいのですが、どこを
どのように修正すればよいのでしょうか。

発生している問題・エラーメッセージ

該当のソースコード

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsOo4o"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private clsUID          As String   'SID
Private clsPWD          As String   'UID
Private clsSID          As String   'PWD

Private clsSession      As Object   'ｾｯｼｮﾝ
Private clsDatabase     As Object   'ﾃﾞｰﾀﾍﾞｰｽ
Private clsStatus       As String   'ORAｽﾃｰﾀｽ
Private clsVbErr        As Long     'VBｴﾗｰｺｰﾄﾞ

Const oraRec_DEFAULT = &H0&
Const oraRec_NO_AUTOBIND = &H1&
Const oraRec_NO_BLANKSTRIP = &H2&
Const oraRec_READONLY = &H4&
Const oraRec_NOCACHE = &H8&
Const oraRec_ORAMODE = &H10&
Const oraRec_NO_REFETCH = &H20&
Const oraRec_NO_MOVEFIRST = &H40&
Const oraRec_DIRTY_WRITE = &H80&

Public Property Get UID() As String
    UID = clsUID
End Property

Public Property Let UID(oraUID As String)
    clsUID = oraUID
End Property

Public Property Let vbErr(ErrorCode As Long)
    clsVbErr = ErrorCode
End Property

Public Property Get PWD() As String
    PWD = clsPWD
End Property

Public Property Let PWD(oraPWD As String)
    clsPWD = oraPWD
End Property

Public Property Get SID() As String
    SID = clsSID
End Property

Public Property Let SID(vNewValue As String)
    clsSID = vNewValue
End Property

Public Property Get oraSession() As Object
    Set oraSession = clsSession
End Property

Public Property Get oraDatabase() As Object
    Set oraDatabase = clsDatabase
End Property

Public Property Get vbErr() As Long
    vbErr = clsVbErr
End Property

Function Connect() As Long
On Error GoTo Connect_Err
Dim strORASessionName   As String

    strORASessionName = ""
    strORASessionName = strORASessionName & clsUID & "/" & clsPWD

    Set clsSession = CreateObject("OracleInProcServer.XOraSession")
    Set clsDatabase = clsSession.DbOpenDatabase(clsSID, strORASessionName, &H0)
    
    clsStatus = ""
    Connect = 0

Connect_Exit:
    Exit Function

Connect_Err:
    clsVbErr = Err
    Connect = Err
On Error Resume Next
    Set clsSession = Nothing
    Set clsDatabase = Nothing
    GoTo Connect_Exit

End Function

Public Function Disconnect() As Long

    On Error GoTo Disconnect_Err

    Set clsSession = Nothing
    Set clsDatabase = Nothing

    Disconnect = 0

Disconnect_Exit:
    Exit Function

Disconnect_Err:
    clsVbErr = Err
    Disconnect = Err
On Error Resume Next
    GoTo Disconnect_Exit

End Function

Public Function Execute(SQL As String) As Long

    On Error Resume Next

    clsDatabase.DbExecuteSQL SQL
    
    clsVbErr = Err
    Execute = Err

End Function

Public Function Recordset(SQL As String) As Object

    On Error GoTo Recordset_Err

    Set Recordset = clsDatabase.DbCreateDynaset(SQL, oraRec_DEFAULT)

Recordset_Exit:
    Exit Function

Recordset_Err:
    clsVbErr = Err
    Set Recordset = Nothing
On Error Resume Next
    GoTo Recordset_Exit
End Function

Public Function Recordset_RO(SQL As String) As Object

    On Error GoTo Recordset_RO_Err

    Set Recordset_RO = clsDatabase.DbCreateDynaset(SQL, oraRec_READONLY)

Recordset_RO_Exit:
    Exit Function

Recordset_RO_Err:
    clsVbErr = Err
    Set Recordset_RO = Nothing
On Error Resume Next
    GoTo Recordset_RO_Exit
End Function

Public Function CreateRecordset(SQL As String, ByVal AccessMode As Long) As Object
    On Error GoTo CreateRecordset_Err
    Set CreateRecordset = clsDatabase.DbCreateDynaset(SQL, AccessMode)
CreateRecordset_Exit:
    Exit Function

CreateRecordset_Err:
    clsVbErr = Err
    Set CreateRecordset = Nothing
On Error Resume Next
    GoTo CreateRecordset_Exit
End Function

Public Function Commit() As Long
    On Error Resume Next
    clsDatabase.DbExecuteSQL ("BEGIN Commit; END;")
    clsVbErr = Err
    Commit = Err
End Function

Public Function Rollback() As Long
    On Error Resume Next
    clsSession.DbRollback
    clsVbErr = Err
    Rollback = Err
End Function

Public Function ErrReset() As Long
    On Error Resume Next
    clsDatabase.LastServerErrReset
    clsVbErr = Err
    ErrReset = Err
End Function

Public Function BeginTrans() As Long
    On Error Resume Next
    clsSession.DbBeginTrans
    clsVbErr = Err
    BeginTrans = Err
End Function

Public Function CommitTrans() As Long
    On Error Resume Next
    clsSession.DbCommitTrans
    clsVbErr = Err
    CommitTrans = Err
End Function

Answer 1

参考になりそうなサイトを紹介しておきます。

「oo4oからADOへの変換」
http://nkurilog.blogspot.com/2017/10/oo4oado.html

Answer 2

現状のクラスはそのままで中身を変更するって事ですよね。
oo4oの定数なども使用しているようですし、以下などを参考にマッピングしていくしか無いんじゃないかな。
OdbcConnection クラス
VB6（Visual Basic6.0）とADO（ActiveX Data Objects）