Private Sub Form_Load()
Dim i As Integer
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM menu;") ‘以要鏈接的表建立記錄集
If rst.RecordCount = 0 Then MsgBox "表中無數據！程序終止。": Exit Sub ‘如果鏈接表無數據
i = 1
rst.MoveFirst ‘記錄首
While Not rst.EOF ‘循環記錄
With Me.TreeView0.Nodes ‘每循環1條記錄添加一個分類
.Add , 4, "s" & i, "" & rst(1) & ""
End With
i = i + 1
rst.MoveNext ‘下一條記錄
Wend
End Sub

Private Sub TreeView0_DblClick()
Me.win.SourceObject = "login"
End Sub

access treeview讀取數據表成樹並與子窗體聯動