在实践学习一个学生管理系统，为什么select语句的查询结果一直是-1呢？不管有没有查到，很奇怪，请大师们指点！
Private Sub Command1_Click()
If Text1.Text = "" Then
    MsgBox "添加专业不能为空，请重新输入", vbOKOnly + vbExclamation, "系统提示"
    Text1.SetFocus                         'vbExclamation是感叹号
Else
    '加入专业表prof
    '首先要判断，要添加的专业，在专业表中是否已经存在
    sqltxt = "select * from prof where 专业='" & Trim(Text1.Text) & "'"
    Set rs = exesql(sqltxt)
    Label1.Caption = rs.RecordCount
    If rs.RecordCount <> 0 Then
        MsgBox "已存在相同专业，不能添加", vbOKOnly + vbCritical, "系统提示"
        Text1.SetFocus                    'vbCritical是出错符号
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
    Else
        Adodc1.Recordset.AddNew    '使adodc1可编辑
        Adodc1.Recordset.Fields("专业") = Trim(Text1.Text)    '赋值
        Adodc1.Refresh    '刷新
        List1.AddItem (Trim(Text1.Text))   'list1增加专业内容
        Text1.Text = ""      '添加成功后，text1内容清空
        MsgBox "添加专业成功", vbOKOnly, "系统提示"
    End If
    rs.Close
End If
End Sub

【模块中的exesql功能】
Public Function exesql(ByVal sql As String) As ADODB.Recordset    '执行查询语句
sql = Trim(sql)                                                   '查询语句
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
'打开数据库
conn.Open "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\stud.mdb"
'执行查询语句
Set rst = conn.Execute(sql)
'返回
Set exesql = rst

'rst.Close
'conn.Close
Set rst = Nothing    '节约资源，如果用close，则关闭了数据库，在调用时会出现对象关闭错误
Set conn = Nothing
                           
End Function



附件：

索性直接用adodc2的find查找，如果找不到，则adodc2.eof=true，否则找到，用这种倒是一次过关，为什么，为什么？？？
Private Sub Command3_Click()
If Text2.Text = "" Then
    MsgBox "添加班号不能为空，请重新输入", vbOKOnly + vbCritical, "系统提示"
    Text2.SetFocus
    Text2.SelStart = 0
    Text2.SelLength = Len(Text2.Text)
Else
    '增加班号记录
    'sqltxt = "select * from classn where 班号='" & Trim(Text2.Text) & "'"
    'Set rs = exesql(sqltxt)
    sqltxt = "班号='" & Trim(Text2.Text) & "'"
    Adodc2.Recordset.MoveFirst
    Adodc2.Recordset.Find (sqltxt)
    If Adodc2.Recordset.EOF Then     '没有发现相同班号记录
        Adodc2.Recordset.AddNew
        Adodc2.Recordset.Fields("专业") = Trim(List1.Text)
        Adodc2.Recordset.Fields("班号") = Trim(Text2.Text)
        List2.AddItem (Trim(Text2.Text))
        Adodc2.Recordset.Update
        Adodc2.Recordset.Requery
        Text2.Text = ""
    Else
        MsgBox "存在相同班号，不能添加", vbOKOnly + vbCritical, "系统提示"
    End If
End If
End Sub

谢谢版主的建议

我是在对照着书，自学呢，很多不懂的地方，希望大家多多帮助，兴趣

笨蛋，一直是-1，说明查询肯定是有问题的，也就是有符合条件的也没找到

问题，在哪里呢