Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
dim db1 as database
dim rs1 as recordset
Set db1 = OpenDatabase(App.Path & "\数据库文件名", False, False, "")
set rs1=db1.openrecordset("select * form 学生表 where 姓名='" & item.text & "'")
if rs1.eof then exit sub
text1=rs1("姓名")
text2=rs1("学号")
text3=rs1("成绩")
End Sub