如何用VB+SQL+ADO连接？

Question

我用如下代码出错    Dim CN   As New ADODB.Connection        
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=sky;Initial Catalog=northwind;User Id=sa;Password=;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from test", CN, adOpenDynamic, adLockBatchOptimistic
    Set DataGrid1.DataSource = Rs
   
执行到CN.Open就出错，我的ODBC－SQL正常开启，为什么连不上各位大侠赐教
在线等候

Answer 1

先要在 工程菜单——》引用——》microsoft activex data object 2.x

Answer 2

ConnectionString出错，再详细检查一遍！最好先用ADO控件生成连接字符串，再拷贝过来！

Answer 3

错误只能是connectionstring字符串和你现有数据库配置不相同

Answer 4

请检查你的连接字符串
    Dim CN   As New ADODB.Connection                
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic
   Set DataGrid1.DataSource = Rs

Answer 5

Dim CN   As New ADODB.Connection        
    Dim Rs   As New ADODB.Recordset
    这样定义
就可以省略
Set cn=new ADODB.Connection        
set rs=new  New ADODB.Recordset
么？？？

Answer 6

请详细解释一下ConnectionString属性中各个字符串的意义

Answer 7

我的User Id=sa;Password=;密码为空
数据库在ODBC里别名是sky
数据库是SQL Server7.0帮忙看看哪里错了

Answer 8

将CN.ConnectionString改为
CN.ConnectionString = "Provider=sqloledb;DSN=sky;Initial Catalog=northwind;User Id=sa;Password=;"
后CN.Open不出错了
但是Rs.Open "select * from test", CN, adOpenDynamic, adLockBatchOptimistic出错
提示“Invalid Object Name  'test'这是为什么？？？？？？？？？？