很简单的问题，我的连接字符串没有写对，帮我看看。

[电动汽车砖家刘博士]

Dim Constr As String 'ODBC路径
Const BLOCKSIZE = 4096 '每次读写块的大小
Dim ADOCon As New ADODB.connection 'ADODB Connection对象
Dim ADORst As New ADODB.Recordset 'ADODB Recordset 对象
Dim ADOFld As ADODB.Field 'ADODB Field 对象
Private Sub Form_Load()

Const Constr = "uid=;pwd=;driver={SQL Server}; server=QT21-liu;database=CaseManage;dsn="

ADOCon.Open Constr '创建一个连接
ADORst.Open "Information″, ADOCon, adOpenDynamic, adLockOptimistic"
'打开一个ADO动态集 表名为table
Set AdoCtr.Recordset = ADORst '将动态集赋给ADO控件
End Sub

报错为“没有制定记录源”
实时错误为“3709”

[zjcxc]

身份验证模式为:"sql server和windows"
Provider=SQLOLEDB.1;Persist Security Info=True;User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名

身份验证模式为:"仅windows"
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=SQL服务器名

[电动汽车砖家刘博士]

大哥，我用了两种方式都去试了一下，都不行，不知道是再什么地方，我机器名称为qt21-liu,服务器名称为QT21-LIU,数据库名称为CaseManege,你说该怎么写阿，我装sql server的时候是用的系统登陆方式，没有用sql server方式，有没有影响阿？

[电动汽车砖家刘博士]

'Const Constr = "Provider=SQLOLEDB.1;Persist Security Info=true;ID=qt21-liu;Password=781225443;Initial Catalog=CaseManage; Data Source=QT21-LIU"
Const Constr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CaseManage;Data Source=QT21-LIU"
'Constr = ″uid=gaohui;pwd=781225443 ;driver={SQL Server};″ '定义ODBC连接
ADOCon.Open Constr '创建一个连接
ADORst.Open "Information, ADOCon, adOpenDynamic, adLockOptimistic"
'打开一个ADO动态集 表名为table
Set AdoCtr.Recordset = ADORst '将动态集赋给ADO控件


在ADORst.Open "Information, ADOCon, adOpenDynamic, adLockOptimistic"这一行过不去。

[电动汽车砖家刘博士]

'身份验证模式为:"sql server和windows"
'Provider=SQLOLEDB.1;Persist Security Info=True;User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名

'身份验证模式为:"仅windows"
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=SQL服务器名


'Const Constr = "Provider=SQLOLEDB.1;Persist Security Info=true;ID=qt21-liu;Password=781225443;Initial Catalog=CaseManage; Data Source=QT21-LIU"
Const Constr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CaseManage;Data Source=QT21-LIU"
'定义ODBC连接
ADOCon.Open Constr '创建一个连接
ADORst.Open "Information", ADOCon, adOpenDynamic, adLockOptimistic

'打开一个ADO动态集 表名为Information
Set AdoCtr.Recordset = ADORst '将动态集赋给ADO控件

现在的调试出来的问题是“ADODC没有指定记录源”