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