VB+ACCESS 在mian函数中出错

Question

Dim cnn As ADODB.ConnectionSub main()
  cnn.ConnectionString = "microsoft.Jet.OLEDB.4.0;Data Source" & _
                         "=c:\Telmanage.mdb;"
  cnn.Mode = adModeReadWrite
  cnn.Open
End Sub以上为问题代码，运行出现
Run-time error '91':Object variable or with block variable not set.
意思上好像是有变量没有赋值，是什么变量呢？ 为什么我的ADO200.chm中，我查不到Data Source的意思。
我看其他人的代码里有Persist Security Info = TRUE，这个在帮助文档里也查不到呐？
最后如果我的程序从Sub Main()开始，在打开数据库之后，是不是在整个程序的所有窗口中对数据库操作都不要再打开了呐？
如果不是程序从窗口开始，怎么才能只要打开一次数据库。

Answer 1

Sub main()
set cnn = new ADODB.Connection
cnn.ConnectionString = "microsoft.Jet.OLEDB.4.0;Data Source" & _
"=c:\Telmanage.mdb;"
cnn.Mode = adModeReadWrite
cnn.Open
End Sub

Answer 2

这样就可以了，但是为什么，要set cnn = new ADODB.Connection?
是因为我少了个New吗？
麻烦大家回答一下那两个在帮助文档里找不到的东东，为什么找不到？

Answer 3

是的，一定要new的
要不，你Dim cnn As new ADODB.Connection也行

Answer 4

Dim cnn As new ADODB.Connection