关于access切换面板的问题！！

1. 在设计视图中打开在切换面板窗体。
2. 在 视图 菜单上单击 代码 以在 Visual Basic 编辑器中打开窗体的模块。
3. 找到 FillOptions() 过程并进行以下修改它。
   
   替换下面的代码

   Set con = Application.CurrentProject.Connection

   与：

   Set con = CurrentDb

   替换下面的代码

   rs.Open stSql, con, 1   ' 1 = adOpenKeyset

   与：

   Set rs = con.OpenRecordset(stSql)

   删除下面的代码行：

   Set rs = CreateObject("ADODB.Recordset")

   查找 HandleButtonClick() 过程并使您只需对 FillOptions() 过程所做的进行相同的修改。
4. 在 调试 菜单上单击 编译 ProjectName。
5. 关闭并保存在切换面板窗体。

通过上述方法解决的，不过还是谢谢楼主及关心我的问题的朋友们！谢谢！