Gente como posso criar um arquivo ini para quando eu iniciar o sistema ela possa abrir o banco.

Abra o bloco de notas e escreva

 

[GERAL]

Caminho="C:/MeuBanco"

 

Salve como  nome.ini na pasta do projeto

coloque no evento load do form a função para ler o arquivo.

 

Dim BDados

'Criando e escrevendo:

WriteINI "c:|bd.ini", "Caminho", "BD", "Caminhodoseubd.mdb"

'Lendo:

BDados = ReadINI("C:|bd.ini", "Caminho", "BD")

 

'Exemplo:

If Dir$("c:|bd.ini") <> ""

Then GoTo existe

Else WriteINI "c:|bd.ini", "Caminho", "BD", App.Path + "|dados.mdb"

End If

existe:

BDados = ReadINI("C:|bd.ini", "Caminho", "BD")

 

'OBS:Substitua o "|" pela barra invertida, pois ao postar ela naum aparece.

ai ai ai galerinha, vamos dar a solulção completa ae...

Artigo em inglês, mas muito bom.