在线等待！！！

Question

我想在vb里用connection打开一个对SQL Server的exam的数据库异步连接，用户名是Lmy，密码是Lmy，请高手看以下代码为什么不能打开。
Dim cnDataBase As ADODB.Connection
cnDataBase.Open "Provider=SQLOLEDB;data source=myserver;initial catalog=exam;"&"User id = Lmy; Password = Lmy;",,, adAsyncConnect
这是按照书上说的去写的，
为什么打不来呢？
我运行后提示说：对象变量或With块变量未设置。

Answer 1

试一下这样行不行？因为我没有环境试(主要是没有SQL SERVER），所以只能建议了:>
Dim cnDataBase As ADODB.Connection
set cnDataBase= new ADODB.Connection
...

Answer 2

Dim cnDataBase As ADODB.Connection
set cnDataBase= new ADODB.Connection
cnDataBase.Open "Provider=SQLOLEDB;data source=myserver;initial catalog=exam;User id=Lmy;Password=Lmy"