Есть код с использованием которого нужно написать скрипт для выгрузки информации из таблицы T находящейся в базе данных с параметрами: Провайдер - OraOLEDB.Oracle, Имя базы данных – ORCL, Имя пользователя - User, Пароль пользователя – Password, Адрес сервера – 192.168.0.7.

вот код

Class DBConnectionParameters
    Private params
    
    Private Sub Class_Initialize()
        Set params = CreateObject("Scripting.Dictionary")
    End Sub
        
    Public Sub AddParameter(Name, Value)
        If Not params.Exists(CStr(Name)) Then
            params.Add CStr(Name), CStr(Value)
        End If
    End Sub
            
    Public Sub RemoveParameter(Name)
        If params.Exists(CStr(Name)) Then
            params.Remove CStr(Name)
        End If
    End Sub
    
    Public Function getConnectionString()
        buf = ""
        For Each key In params
            buf = buf + key + "=" + Chr(34) + params(key) + Chr(34) + ";"
        Next
        getConnectionString = buf
    End Function
    
    Private Sub Class_Terminate()
        Set params = Nothing
    End Sub
    
End Class

Class DBObject
    Private conObj
    Private recObj
    Private isConnectionOpen
    
    Private Sub Class_Initialize()
        Set conObj = CreateObject("ADODB.Connection")
        Set recObj = CreateObject("ADODB.Recordset")
        isConnectionOpen = false
    End Sub
    
    Public Sub OpenConnection(connectionString)
        conObj.ConnectionString = connectionString
        conObj.Open
        isConnectionOpen = true
    End Sub
    
    Public Sub CloseConnection()
        If isConnectionOpen Then
            conObj.Close
            isConnectionOpen = false
        End If
    End Sub
    
    Public Function SendRequest(SQLtxt)
        If isConnectionOpen Then
            recObj.ActiveConnection = conObj
            recObj.Open SQLtxt
            Set SendRequest = recObj
        End If
    End Function

    Private Sub Class_Terminate()
        Call CloseConnection
        Set recObj = Nothing
        Set conObj = Nothing
    End Sub
End Class

Код был написан до меня, но я не силен в объектной модели. Помогите доработать пожалуйста