Vb6 运行时错误“13”类型不匹配

我对VB6的查询是：

Set Db = DBEngine.OpenDatabase(App.Path & "\sample4nC4.mdb")

Set rs = Db.OpenRecordset("select *from tbl_student;")

Do Until rs.EOF
    With ListView1
        .ListItems.Add , , rs.Fields("stud_ID")
        .ListItems(ListView.ListItems.Count).SubItems(1) = rs.Fields("stud_fname")
        .ListItems(ListView1.ListItems.Count).SubItems(2) = rs.Fields("stud_lname")
        .ListItems(ListView1.ListItems.Count).SubItems(3) = rs.Fields("stud_address")
        .ListItems(ListView1.ListItems.Count).SubItems(4) = rs.Fields("stud_age")
    End With
    rs.MoveNext
Loop

当我执行此查询时，第2行出现错误，显示：

运行时错误“13”类型不匹配

---

我真的不明白，因为当我检查表名时，它是正确的，但我无法访问表。有人能回答我的问题吗？

您的项目中有ADO和DAO的参考资料吗

如果是这样，请参阅这篇Microsoft支持文章：

执行这些操作

替换“从tbl_学生中选择*”中的查询 到 '从tbl_学生中选择stud_fname、stud_lname、stud_地址、stud_年龄'

这包括1。与“from”2之间的空格。删除“；”3.明确指定字段名*

在程序的第一行中放置一个断点并单步执行，如果仍然失败，请检查失败的行。

---

在星号后留出空格：从tbl_学生中选择*。抛出类型不匹配错误的确切语句是什么？