主题：这个代码怎么优化？

Dim t As Table = Tables("客户管理_Table1")
t.Filter = "资料分类 = '客户'"
e.Form.Controls("TextBox1").BindingField = "客户管理_Table1.编号"
e.Form.Controls("TextBox2").BindingField = "客户管理_Table1.公司名称"
e.Form.Controls("TextBox3").BindingField = "客户管理_Table1.联系人"
e.Form.Controls("TextBox8").BindingField = "客户管理_Table1.QQ号码"
e.Form.Controls("TextBox9").BindingField = "客户管理_Table1.付款方式"
e.Form.Controls("TextBox4").BindingField = "客户管理_Table1.联系手机"
e.Form.Controls("TextBox5").BindingField = "客户管理_Table1.联系电话"
e.Form.Controls("TextBox6").BindingField = "客户管理_Table1.其它电话"
e.Form.Controls("TextBox7").BindingField = "客户管理_Table1.传真"
e.Form.Controls("TextBox10").BindingField = "客户管理_Table1.城市"
e.Form.Controls("TextBox12").BindingField = "客户管理_Table1.地址"
e.Form.Controls("TextBox16").BindingField = "客户管理_Table1.发货地点"
e.Form.Controls("TextBox13").BindingField = "客户管理_Table1.客户级别"
e.Form.Controls("TextBox14").BindingField = "客户管理_Table1.开户行"
e.Form.Controls("TextBox15").BindingField = "客户管理_Table1.备注"
e.Form.Controls("Table1").Select()

各控件命名优化，带有列名特征，，否则，优化意义不大！