前辈,请指点一下我这个3709错误,谢谢!

Question

写了一个小程序,刚刚开始写,就遇到问题了.本人愚笨,实在不知道什么地方出错了.请前辈们详细指点.*********************************************************Option ExplicitPublic DBCon As ADODB.ConnectionPublic RsAddZj As New ADODB.Recordset--------------------------------------------------------------------Sub main()    DBCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &_ "\DataBase\IDM.mdb;Persist Security Info=False"
    DBCon.OpenEnd Sub
-----------------------------------------------------------------------------
Private Sub CmdAdd_Click()RsAddZj.AddNew End Sub
------------------------------------------------------------------------------
Private Sub Form_Load()
    
RsAddZj.Open "maintab", DBCon, adOpenKeyset, adLockOptimistic, adCmdTableEnd Sub
**************************************************************
谢谢了,急等解决问题.

Answer 1

这个问题暂时解决了.因为执行程序过程中,Sub main()中程序没有被执行.请问一下:
如果,程序打开,就同数据库连接.并不是在调用的时候才连接.那么DBCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataBase\IDM.mdb;Persist Security Info=False"
DBCon.Open
这个程序应该写到哪里?应该怎么写呀?
谢谢

Answer 2

写在主程序里。将DBCon设为Public。^_^

Answer 3

噢?是在调用主程序的窗口里边写么?
DBCon已经为Public,在Option Explicit中.
哪位前辈再给点意见和建议?