求注释VB程序，只要大概整句意思即可，急用！！！

Option Explicit
Private rsMain As ADODB.Recordset
Private rsTerm As ADODB.Recordset
Private strSql As String
Private Sub cmdAbout_Click()
        frmAbout.Show
End Sub
Private Sub cmdAddObject_Click() '程序段
            If rsMain.RecordCount >= MaxRecNumber Then
                    MsgBox "疾病个数不能超过: " & Str(MaxRecNumber) & "个" & vbCrLf & "如果需要增加疾病数量,请与作者联系", vbInformation, "提示"
                    Exit Sub
            End If '判断
            If Trim(txtID.Text) = "" Then
                   MsgBox "必须输入疾病代号", vbCritical, "Error"
                   txtID.SetFocus
                   Exit Sub
            End If
            If Trim(txtObject.Text) = "" Then
                   MsgBox "必须输入疾病名称", vbCritical, "Error"
                   txtObject.SetFocus
                   Exit Sub
            End If
  &nb