VB+ACCESS 在mian函数中出错,该怎么解决

VB+ACCESS 在mian函数中出错
Dim   cnn   As   ADODB.Connection

Sub   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()开始，在打开数据库之后，是不是在整个程序的所有窗口中对数据库操作都不要再打开了呐？
如果不是程序从窗口开始，怎么才能只要打开一次数据库。

------解决方案--------------------
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


------解决方案--------------------
是的，一定要new的
要不，你Dim cnn As new ADODB.Connection也行
------解决方案--------------------
Dim cnn As new ADODB.Connection
------解决方案--------------------
给object赋值一定要用set