VB调试中遇到“对象关闭时，不允许操作

[lz_xiaohai]

1、设置模块

Public Sub main()            '定义一个公共主函数，用于连接数据库
    cnnstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PWD=itxrgw;Initial Catalog=db_SPJXC;Data Source=."
    cnn.Open (cnnstr)
End Sub

2、在保存的按钮中

call main
cnn.Execute ("insert into 经手人表 values('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Text1(2).Text & "','" & Text1(3).Text & "','" & Text1(4).Text & "','" & Text1(5).Text & "')")

老是提示VB调试中遇到“对象关闭时，不允许操作
3、如果我要程序随时执行cnn.execute 模块需要怎么设置
注：利用ado对象

[赵4老师]

把劳什子main删掉，每次都：

cnn.Open ("Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PWD=itxrgw;Initial Catalog=db_SPJXC;Data Source=.")
cnn.Execute ("insert into 经手人表 values('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Text1(2).Text & "','" & Text1(3).Text & "','" & Text1(4).Text & "','" & Text1(5).Text & "')")
cnn.Close

[饮水需思源]

把cnn用public定义成全局

[lz_xiaohai]

谢谢两位老师。。。。。。