连接数据库错误

[love_day]

代码如下：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cnn As ADODB.Connection
cnn = New ADODB.Connection()
cnn.DefaultDatabase = "msg-score"
cnn.ConnectionString = "driver={SQL Server};server=bigsmile;uid=ince;pwd=inceadmin"
cnn.Mode = ADODB.ConnectModeEnum.adModeReadWrite
cnn.Open()
cnn.Close()
End Sub

运行时报错如下：
未处理的"System.Runtime.InteropServices.COMException"类型的异常出现在test.exe中

其他信息：对象关闭时，不允许操作
点中断光标定位在
cnn.DefaultDatabase = "msg-score"
请问这是怎么回事呢？谢谢

[xumahua]

这样写试试
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cnn As ADODB.Connection
cnn = New ADODB.Connection()
cnn.ConnectionString = "driver={SQL Server};server=bigsmile;uid=ince;pwd=inceadmin"
cnn.Mode = ADODB.ConnectModeEnum.adModeReadWrite
cnn.Open()
cnn.DefaultDatabase = "msg-score"
cnn.Close()
End Sub

[xumahua]

不知道你这段代码作何用？

[love_day]

不想做任何事，就是试试能否链接数据库

按xumahua(xumahua) 所说的改过来之后仍报错，但其他信息变为：
[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server不存在或被拒绝

[lin9703]

你通过。NET的可视化管理，然后视图创建一个你需要的连接，然后在把它拷贝到你的代码中！·应该没有问题的，祝你好运~

[xumahua]

你既然用了vb.net为何不用ado.net呢？真是搞不懂。
应该是cnn.ConnectionString = "driver={SQL Server};server=bigsmile;uid=ince;pwd=inceadmin"
有问题吧。.net中使用ado我没试过。

[xumahua]

ADO连接应该这样写：
cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=ince;Initial Catalog=Northwind;Data Source=bigsmile;PassWord=inceadmin;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=bigsmile;Use Encryption for Data=False;Tag with column collation when possible=False"

[jnhjone]

使用OleDbDataAdapter1控件作链接，成功之后会自动生成代码是你所需要的

[ToBeCharcoal]

老大呀，
命名空间种好像没有ADO吧~
System.Data.（SqlTypes，SqlClient，OleDb，Common）;
全在（）里面了，只有四个呀。

[ToBeCharcoal]

[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server不存在或被拒绝//就是没有你要的东西，不是吗?