*.INI x Banco de Dados

Bom colega para gravar e ler arquivos ini eu utilizo do seguinte código

em um módulo

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Ret As String

Public Sub WriteINI(filename As String, Section As String, Key As String, Text As String)
WritePrivateProfileString Section, Key, Text, filename
End Sub

Public Function ReadINI(filename As String, Section As String, Key As String)
    Ret = Space$(255)
    RetLen = GetPrivateProfileString(Section, Key, "", Ret, Len(Ret), filename)
    Ret = Left$(Ret, RetLen)
    ReadINI = Ret
End Function

no form para ler e para gravar

pra gravar

WriteINI "c:windowsconf.ini", "Impressora", "Impressora", "texto"

na gravação acima será salvo no arquivo ini o seguinte

[impressora]

impressora="texto"

pra ler
Text1.Text=ReadINI("C:Windowsconf.ini", "Impressora", "Impressora")

resultado

Text1.Text="Texto"

agora basta usar a imaginação e começar a utilizar o arquivo ini