faint!...
[DBConfigXXX]
connStrXXX="xxxxxxx"
...
 Dim s As String * 255
 GetprivateProfileString "DBConfigXXX", "connStrXXX", "", s, 255, "c:\xxx.ini"