สอบถามปัญหาจากโค้ด VB Show/Hide Columns ที่ใช้ใน MS Access

Private Sub btnshowHide_Click()

  Dim strForm As String

  If btnshowHide.Caption = "Hide Column" Then
    Me.subfrmSearch.SetFocus
    DoCmd.RunCommand acCmdHideColumns
    btnshowHide.Caption = "Unhide Columns"
  Else
    DoCmd.Echo False
    btnshowHide.Caption = "Hide Column"
    strForm = Me.subfrmSearch.SourceObject
    DoCmd.RunCommand acCmdDesignView
    DoCmd.OpenForm strForm, acFormDS
    DoCmd.RunCommand acCmdUnhideColumns
    DoCmd.Close
    DoCmd.RunCommand acCmdFormView
    DoCmd.Echo True
  End If

End Sub