主题：切换页面当前表更改

想实现切换页面后，当前表切换到当前页面内的表控件绑定表，并且页面也重新切换到当前页面，代码如下，为什么实现不了，请大家帮助修改一下

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
If tb.SelectedPage.Text = "表A" Then
MainTable  = Tables("表A")
e.Form.OpenTo("表A")
tb.SelectedIndex = 1
End If
If tb.SelectedPage.Text = "表B" Then
e.Form.OpenTo("表B")
MainTable  = Tables("表B")
tb.SelectedIndex = 2
End If