Public Sub SelectUser()
    Dim db As Database
    Dim rs As Recordset
    Dim dataPath As String
    Dim SQL As String
    Dim UPath As String
 
    dataPath = App.Path + ("\Financial.mdb")
 
    Set db = OpenDatabase(dataPath, False, True)
    UPath = frmLogIn.txtLogInName
    SQL = "SELECT AccountName From MemoryUser WHERE UserAccount=" & UPath & ";"
    Set rs = db.OpenRecordset(SQL)
 
 
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing
End Sub