module1.bas

简单的通讯薄 名字=文件名=此列为文件名 QQ=验证码=此列为验证码 电话=访问次数=此列为访问次数

Attribute VB_Name = "Module1"
Public AppPath As String
Public AppP As String
Public IDErr As Integer
Public SQLErr As String

Public Function GetAppPath()
AppPath = App.Path
    If Right(AppPath, 1) <> "\" Then
        AppPath = AppPath & "\"
    End If
    AppP = AppPath
    AppPath = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & AppPath & "data.mdb" & ";" & "Jet OLEDB:Database Password='lyttlyqjhqjw '"
End Function