[]哪位高手能给个菜单代码(VB)呀

[求助]谁能给个菜单代码(VB)呀.
http://test.kagebo.cn/DataBind.aspx

谁能给像这样的VB代码呀!

asp.net   2.0的

------解决方案--------------------------------------------------------
这个很简单吧。
Dim ds as DataSet
Dim sql as string
sql= "select * from [tablename] where [fff]= ' "+DropDownList1.SelectedValue
ds=...（自己写）

然后用Repeater把这个DS显示出来菜单就出来了呗……