sqlstr = "Select * From 学员登记表 Where 学号 ='" & strnumber & "'"
  Adodc1.RecordSource = sqlstr
  If Adodc1.Recordset.Fields.Count = 0 Then……
本处该用什么判断