OK按钮的click事件
Dim lb As WinForm.ListBox = e.Form.Controls("ListBox1")
Tables("表B").Current("第一列") = lb.SelectedValue