读取INI文件 ---VbCode

'Function to read application setting from INI file
Public Function IniFileRead(ByVal vstrINIPath As String, vstrINIFileName As String, _
    ByVal vstrINIType As String, ByRef vstrVar As String, ByVal vstrName As String) As Boolean
   
    On Error GoTo ErrHandler
   
    Dim lResult As Long
    Dim sTemp As String
    Dim lDB As Long
    Dim msIniFileFullPath As String
   
    IniFileRead = False
   
    msIniFileFullPath = vstrINIPath & "\" & vstrINIFileName

    'get connection string
    sTemp = Space$(300)
    lResult = GetPrivateProfileString(vstrINIType, _
                                      vstrName, _
                                      "", _
                                      sTemp, _
                                      300, _
                                      msIniFileFullPath)
   
    If lResult < 1 Or lResult > 300 Then
        GoTo ErrHandler
    Else
        sTemp = Left(sTemp, lResult)
    End If
    vstrVar = sTemp
   
    IniFileRead = True
   
    Exit Function
ErrHandler:
    IniFileRead = False
   
End Function

调用:
IniFileRead(App.Path, mstrINIFileName, "Database", StrPwd, "Password")

app.path:INI文件存放路径
mstrINIFileName:INI文件名称

INI文件格式:
[database]
Server="aa"
DataBase="test"
UserID="sa"
Password="aa"