Erro ao conectar ao BD

[Mordomo]

Bom dia,

Tenho um sistema em VB6, que está dando erro ao tentar abrí-lo pelo VB. O erro se dá no banco de dados. Aparece a seguinte mensagem na imagem anexa.

Quando clico no debug, aparece o local do erro:

Public Function CONECTA(ByVal Valor As Boolean)

If Valor = True Then
    Set CNN = New ADODB.Connection
        BANCODEDADOS = ReadINIString("BANCODEDADOS", "CAMINHO", App.Path & "\Config.ini")
        IDENTIDADE = ReadINIString("BANCODEDADOS", "IDENTIDADE", App.Path & "\Config.ini")
        CONEXAO = "Provider=SIBPROvider.2; SIB:Character Set =WIN1252; Data Source=" & BANCODEDADOS & ";User ID=" & "SYSDBA" & ";Password=" & IDENTIDADE & ""
        CNN.Open CONEXAO
        CNN.CursorLocation = adUseClient
Else
        CNN.Close
        Set CNN = Nothing
End If
End Function

Desde já informo que sou aprendiz no VB, portanto, não sei como corrigi-lo. 

Conto com a ajuda e compreensão de todos.

Abraços.