call con '''连接数据库sql="select * from TWorkTime"rs.open sql,cnn,3,3if not rs.eof then text2.text=rs!mstrartTimecall closeData '''关闭数据库''''''con closeData 分为为自己写的打开与关闭数据库的函数