Olá amigos, como fazer com que minha aplicação leia o banco de dados access através de um arquivo .ini ? Este arquivo vai ficar dentro de uma pasta chamada Leia !!! gostaria de usar ADO.

Eis um exemplo:

 

Public Function Local_Ficheiros()
    strArquivo = AppPath & "Config.ini"
    'Nova forma de ler arquivo INI. Sem usar API.
    Open strArquivo For Input As #1
    While Not EOF(1)
        Line Input #1, strLinha
            If Left(strLinha, 2) = "01" Then
                PstrCamDados = Mid(strLinha, 55)
            ElseIf Left(strLinha, 2) = "02" Then
                PstrCamFotos = Mid(strLinha, 55)
            End If
    Wend
    Close (1)