主题：[求助]更改列标题

With CurrentTable
Dim XBT As String
XBT = e.Form.Controls("TextBox1").Text 
     .Cols(.ColSel).Caption =  XBT 
     .BuildHeader()
End With

标题改了之后，系统重新进去发现又变回原来的标题了，这要如何解决