VB 6.0 错误提示变量未定义。

Question

全编译执行提示变量未定义，知识欠缺不知如何解决。跪求大佬点化一下啊。
下面是模块全代码。（提示：错误部分grdcheck在后部分。）谢谢您！有偿！

Option Explicit
Private rsTerm As ADODB.Recordset
Private rsMain As ADODB.Recordset
Private Sub grdtermHH()
         With grdTerm
                 .Columns(0).Width = 5500
                 .Columns(0).Caption = "症状"
         End With
End Sub

Private Sub cmdExit_Click()
            Unload Me
End Sub

Private Sub Command1_Click()
        If rsTerm.RecordCount = 0 Then Exit Sub
        Dim c As String
        Dim d As Single
        With rsTerm
                    c = Trim(.Fields!Term)
                 lstTerm.AddItem c
        End With
        Dim s As String
        Dim Rs3 As ADODB.Recordset
        Set Rs3 = New ADODB.Recordset
        Rs3.Open "select * from term where term='" & Trim(c) & "'", Con, adOpenStatic, adLockOptimistic
        Do While Not Rs3.EOF
              d = Rs3.Fields!probility
             c = Trim(Rs3.Fields!id)
              s = "update main set probility=probility + " & "  " & Str(d) & "  where id='" & Trim(c) & "'"
              Con.Execute s
              Rs3.Fields!Status = "Y"
              Rs3.Update
              Rs3.MoveNext
        Loop



        Set rsMain = New ADODB.Recordset
        rsMain.Open "select * from main where probility>0  order by probility desc ", Con, adOpenStatic, adLockOptimistic
        Set grdMain.DataSource = rsMain
        grdMain.Visible = False
        If rsMain.RecordCount > 0 Then grdMain.Visible = True
        grdMain.Columns(0).Visible = False
        Call grdMainHH
        Set rsTerm = New ADODB.Recordset
        rsTerm.Open "select distinct term  from term where  status='N'", Con, adOpenStatic, adLockOptimistic
        Set grdTerm.DataSource = rsTerm
        Call grdtermHH
End Sub
Private Sub grdMainHH()
        With grdMain
                .Columns(0).Visible = False
                .Columns(1).Caption = "疾病名称"
                .Columns(1).Width = 3000
                .Columns(2).Caption = "患病可能性"
                .Columns(2).Width = 1200

        End With
End Sub

Private Sub Command2_Click()
        If lstTerm.ListIndex < 0 Then Exit Sub
        Dim i As Integer, j As Integer, l As Integer, d As Single
        Dim strTerm As String, s As String, strID As String
        strTerm = Trim(lstTerm.List(lstTerm.ListIndex))
        lstTerm.RemoveItem (lstTerm.ListIndex)
        Dim Rs3 As ADODB.Recordset
        Set Rs3 = New ADODB.Recordset
        Rs3.Open "select * from term where term='" & strTerm & "'", Con, adOpenStatic, adLockOptimistic
        Do While Not Rs3.EOF
             strID = Trim(Rs3.Fields!id)
             d = Rs3.Fields!probility
             s = "update main set probility=probility - " & "  " & Str(d) & "  where id='" & Trim(strID) & "'"
             Con.Execute s
             Rs3.Fields!Status = "N"
             Rs3.Update
             Rs3.MoveNext
        Loop
        Set rsMain = New ADODB.Recordset
        rsMain.Open "select * from main where probility>0  order by probility desc ", Con, adOpenStatic, adLockOptimistic
        Set grdMain.DataSource = rsMain
        grdMain.Visible = False
        Call grdMainHH
        If rsMain.RecordCount > 0 Then grdMain.Visible = True
         grdMain.Columns(0).Visible = False
        Set rsTerm = New ADODB.Recordset
        rsTerm.Open "select distinct term  from term where  status='N' order by term", Con, adOpenStatic, adLockOptimistic
        Set grdTerm.DataSource = rsTerm
        Call grdtermHH
End Sub

'Download by http://down.liehuo.net
Private Sub Form_Load()
          Con.Execute "update main set probility=0"
          Con.Execute "update term set status='N'"
          lstTerm.Clear
          Set rsTerm = New ADODB.Recordset
        rsTerm.Open "select distinct term from term where  status='N' order by term  asc ", Con, adOpenStatic, adLockOptimistic
        Set grdTerm.DataSource = rsTerm
        grdTerm.Columns(0).Width = 4800
        Call grdtermHH
End Sub
Private Sub grdCheckHH()
        With grdCheck
               .Columns(0).Visible = False
               .Columns(3).Visible = False
               .Columns(1).Caption = "待确认症状"
               .Columns(1).Width = 3000
               .Columns(2).Caption = "发病概率"
               .Columns(2).Width = 800

        End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
      frmMain.Show
End Sub

Private Sub grdCheck_Click()

End Sub

Private Sub grdMain_Click()
      If rsMain.RecordCount = 0 Then Exit Sub
      Dim strID As String
      Dim strObj As String
      strObj = Trim(rsMain.Fields!object)
      strID = Trim(rsMain.Fields!id)
      Dim rs2 As ADODB.Recordset
      Set rs2 = New ADODB.Recordset
      rs2.Open "select * from term where id='" & Trim(strID) & "' and status='N'", Con, adOpenStatic, adLockReadOnly
      Set grdCheck.DataSource = rs2
      grdCheck.Visible = False
      lblinfo1.Visible = False
      If rs2.RecordCount > 0 Then
                     lblinfo1.Visible = True
                     grdCheck.Visible = True
                     lblinfo1.Caption = "要确诊为：" & strObj & "   还需要再检查或确认的症候"
      End If
      grdCheck.Columns(0).Visible = False
      grdCheck.Columns(3).Visible = False
      Call grdCheckHH
End Sub

Private Sub Image1_Click()

End Sub

Private Sub txtTerm_Change()
        Set rsTerm = New ADODB.Recordset
        rsTerm.Open "select * from term where term like '%" & Trim(txtTerm.Text) & "%' and status='N' order by term", Con, adOpenStatic, adLockOptimistic
        Set grdTerm.DataSource = rsTerm
        grdTerm.Columns(0).Visible = False
      grdTerm.Columns(2).Visible = False
      grdTerm.Columns(3).Visible = False
End Sub

Answer 1

检查界面上是否有grdCheck这个控件（或者名字你写错了）