Access TreeView reads the data table into a tree and links with the subform

Private Sub Form_Load ()
Dim I as Integer
Dim rst as DAO. Recordset
Set rst = Currentdb.openrecordset ("Select * from menu;") ' Set up a recordset as a table to be linked
If rst. RecordCount = 0 Then MsgBox "table has no data! The program terminates. ": Exit Sub" If the linked table has no data
i = 1
Rst. MoveFirst ' record first
While not rst. EOF ' cyclic recording
With Me.TreeView0.Nodes ' 1 records per loop add a category
. ADD, 4, "s" & I, "" & RST (1) & ""
End with
i = i + 1
Rst. MoveNext ' Next record
Wend
End Sub

Private Sub Treeview0_dblclick ()
Me.win.SourceObject = "Login"
End Sub

Access TreeView reads the data table into a tree and links with the subform