VB调试提示“实时错误3709”

原因数据库没有打开：在cnn下方加一句：
if cnn.state=0 then cnn.open

如果有类似VB 问题欢迎加电脑爱好者VB学习群14746960进行交流。