急救！求treeview的数据绑定的代码，VB.net

Question

仅供参考
  Dim conn As String = System.Configuration.ConfigurationManager.ConnectionStrings("znhConnectionStringall").ToString
        Dim sqlf As String = "select * from mainmenu"        Dim daf As New SqlDataAdapter(sqlf, conn)
        Dim dsf As New DataSet
        daf.Fill(dsf)
        Dim i As Integer
        For i = 0 To dsf.Tables(0).Rows.Count - 1
            Dim td1 As New TreeNode
            td1.Text = dsf.Tables(0).Rows(i).Item(1).ToString
            TreeView2.Nodes.Add(td1)
            td1.Checked = True            Dim sqlc As String = "select * from childmenu where menu_id=" & dsf.Tables(0).Rows(i).Item(0) & ""
            Dim da2 As New SqlDataAdapter(sqlc, conn)
            Dim ds2 As New DataSet
            da2.Fill(ds2)
            Dim j As Integer
            For j = 0 To ds2.Tables(0).Rows.Count - 1
                Dim td2 As New TreeNode
                td2.Text = ds2.Tables(0).Rows(j).Item(2).ToString
                td1.ChildNodes.Add(td2)                Dim sqlx As String = "select * from usermenu where [name]='" & DropDownList2.SelectedItem.ToString & "'"
                Dim dax As New SqlDataAdapter(sqlx, conn)
                Dim dsx As New DataSet
                dax.Fill(dsx)
                Dim a As Integer
                For a = 0 To dsx.Tables(0).Rows.Count - 1
                    If td2.Text = dsx.Tables(0).Rows(a).Item(2).ToString Then
                        td2.Checked = True                    End If
                Next            Next
        Next