Private Sub Form_Load()

   Dim txtSQL As String

   Dim MsgText As String

   txtSQL = "select * from student_Info "

   Set mrc = ExecuteSQL(txtSQL, MsgText)               '得到student表，并显示出来

   'select得到的临时表，游标指向尾记录，在Access中指向第一条

      If mrc.RecordCount = 0 Then

       MsgBox "没有记录，请关闭修改窗口！", vbOKOnly + vbExclamation, "警告"

        firstCommand.Enabled = False

        previousCommand.Enabled = False

        nextCommand.Enabled = False

        lastCommand.Enabled = False

        editCommand.Enabled = False

        updateCommand.Enabled = False

        cancelCommand.Enabled = False

        deleteCommand.Enabled = False ，可以不用这么麻烦，直接讲外面的框，禁用

   Else

   mrc.MoveFirst

   Call viewData

   mcbookmark = mrc.Bookmark '做标记

   mcclean = True

   End If

End Sub

这个错误的原因是，我们想要修改数据库内学籍的信息，但是里面是空的，什么都没有，解决的方法是，放一个IF语句判读，如果没有记录就弹窗显示警告，并且将其他的按钮禁用。

简单来说就是水缸太小了，无法装下所有的数据，解决方法如https://blog.csdn.net/sky15732625340/article/details/46865553?utm_source=blogxgwz3&biz_id=102&utm_term=vb%E5%AD%A6%E7%94%9F%E4%B8%8B%E6%A0%87%E8%B6%8A%E7%95%8C&utm_medium=distribute.pc_search_result.none-task-blog-2~all~sobaiduweb~default-3-46865553&spm=1018.2118.3001.4449

MSHFlexGrid控件自动调整列宽

https://blog.csdn.net/chenxiaochan/article/details/38441793?utm_source=blogxgwz0&biz_id=102&utm_term=vb%E7%9A%84mshflexgrid%E6%8E%A7%E4%BB%B6%E5%A6%82%E4%BD%95%E6%94%AF%E6%8C%81%E8%87%AA%E5%8A%A8%E5%88%97%E5%AE%BD&utm_medium=distribute.pc_search_result.none-task-blog-2~all~sobaiduweb~default-0-38441793&spm=1018.2118.3001.4449