关于rs的变量定义，解决即给分，急！！！

Option ExplicitPrivate Sub Combo1_Click()
Text1.Text = ""
Text1.SetFocus
Select Case Combo1.TextCase "按身份证号"
Label3.Caption = "如：42015689851565"
 Case "按姓名"
Label3.Caption = ""
 Case "按出生日期"
Label3.Caption = "如：1999-9-8"
 Case "按籍贯"
Label3.Caption = ""
 Case "按性别"
Label3.Caption = ""
End Select
End SubPrivate Sub Command1_Click()
  
    Set rs = New ADODB.Recordset
  
Select Case Combo1.Text
  Case "按姓名"
   CString = "huzhuming='"
  Case "按性别"
   CString = "xingbie='"
  Case "按身份证号"
  CString = "shengfenhao='"
  Case "按出生日期"
  CString = "shengri='"
  Case "籍贯"
  CString = "jiguan='"
  
End Select
CString = CString & Trim(Text1.Text) & "'"
rs.Open "select * from HUJI-3 where " & Trim(CString), conn, adOpenStatic, adLockReadOnly
If rs.RecordCount <> 0 Then
  MSHFlexGrid1.Visible = True
  Set MSHFlexGrid1.DataSource = rs
  Text1.Text = ""
  Text1.SetFocus
Else
  MSHFlexGrid1.Visible = False
  MsgBox "没有此记录"
  Text1.Text = ""
  Text1.SetFocus
End If
End SubPrivate Sub Command2_Click()
Unload Me
 Load hecaozuo3
hecaozuo3.Show
End SubPrivate Sub Form_Load()
    Label5.Left = (Me.ScaleWidth - Label5.Width) / 2
    Label5.Top = 200
    
End Sub系统提示  Private Sub Command1_Click()
  
           Set rs = New ADODB.Recordset
         rs变量未定义，请求帮助修改！如果还有其他问题请一并帮忙指出，谢谢！！！