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

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”