Conexão Da Base De Dados

[Duduh_Capixaba]

Olá pessoas! Vejam este código:

Dim Con As New ADODB.Connection
Dim TbCli As New ADODB.Recordset
Dim StringConexao As String

Private Sub Form_Load()
    StringConexao = "DSN=Visual_SIG;Driver=Firebird/InterBase(r) driver;" & _
                    "Dbname=C:\VSig\SgaIbLS.gdb;CHARSET=NONE;UID=SYSDBA;"
    
    Con.Open StringConexao
End Sub

Eu gostaria de colocar os dados da conexão dentro de um arquivo texto, onde eu poderia editar o caminho da base de dados a vontade, sem ter que abrir o código do programa a cada vez que eu mudar o nome da base de dados. Por exemplo:

Private Sub Form_Load()
    StringConexao = C:\Pasta\ConfBase.txt
    
    Con.Open StringConexao
End Sub

Assim, se o nome da minha base de dados mudar, eu só teria que editar o nome dela dentro do arquivo ConfBase.txt. Alguém sabe como montar essa estrutura?

[kuroi]

você tem q abrir o txt e ler. tipo assim:

Dim f As Long
    
    f = FreeFile
    Open "C:\Pasta\ConfBase.txt" For Input As f
    StringConexao = Input$(LOF(f), f)
    Close f
    
    Con.Open StringConexao[/code]

[Duduh_Capixaba]

obrigado, deu certinho Kuroi :) vlw!!!