vb6 - run time error '13' type mismatch -

i have query on vb6 was:

set db = dbengine.opendatabase(app.path & "\sample4nc4.mdb")  set rs = db.openrecordset("select *from tbl_student;")  until rs.eof     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     rs.movenext loop 

when execute query, there error on line 2 says:

run time error '13' type mismatch

i don't because when check table name, correct , yet cant access table. can answer problem?

do have references ado , dao in project?

if so, @ microsoft support article: https://support.microsoft.com/en-us/kb/181542