需要去编写【主菜单】->事件->【click】
根据e.Sender.Name或者e.Sender.Text,打开对应的表即可。
如
If Tables.Contains(e.sender.name) then
maintable = Tables(e.sender.name)
End If