Function GetAccountInfo(ByVal ID As String) As String
        Dim Query As New SqliteCommand()
        Dim Reader As SqliteDataReader
        With Query
            .Connection = mySQLiteDB
            .CommandText = "SELECT * FROM " & USERS_TABLE & " WHERE Id=" & ID & ";"
        End With

        Reader = Query.ExecuteScalar()

        Debug.Print(Reader(USER_NAME))

        Query.Dispose()
    End Function