Çó×¢ÊÍ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