当删除数据库里最后一条记录时，再点开修改窗体，就会报错，无需紧张，我们只需添加一段代码处理。

If mrc.RecordCount = 1 Then
       str1$ = MsgBox("这是最后一条记录，是否删除?", vbOKOnly + vbExclamation, "警告")
    If str1$ = vbOK Then
        mrc.Delete
        Else
        Exit Sub
    End If
 End If

    If mrc.RecordCount = 0 Then
        str2$ = MsgBox("数据为空，是否添加？", vbYesNo, "警告")
        If str2$ = vbYes Then
           frmAddclassinfo.Show    '添加数据
           Else
           Unload Me
           Exit Sub
        End If
    End If

这是删除最后一条记录后，弹出的提示框，我们还需在主窗体添加一段代码，加以判断。

Private Sub modifycinfoMenu_Click()
    Dim txtSQL As String
    Dim MsgText As String


    txtSQL = "select * from class_Info"
    Set mrc = ExecuteSQL(txtSQL, MsgText)

    If mrc.RecordCount = 0 Then           '判定是否有数据
                                           '窗口提示没数据
            MsgBox "数据为空", vbOKOnly + vbExclamation, "提示"
            Exit Sub                                '退出过程

     End If

frmModifyclassinfo.Show
End Sub

这样当确定数据库礼物记录时，就不会打开该窗体，而是直接提示“数据为空”。

优化是一个艰难的过程，我要要保持一种不畏的精神，迎难而上