VBA и MSSQL

Прошу помощи.
Сочинил в 2000ном Excele вот такое:
Dim CN1 As New ADODB.Connection
Dim RS1 As New ADODB.Recordset
Dim DSN1, SQL1 As String
On Error GoTo ErrorHandler
DSN1 = "Driver={SQL Server};Server=DATA;Database=RETDB;Uid=Reader;Pwd=al3342;"
CN1.ConnectionString = DSN1
CN1.Open
SQL1 = "SELECT * FROM AS-161-2008"
RS1.Open SQL1, CN1, adOpenDynamic, adLockBatchOptimistic
With Worksheets(2)
.Range("a1").CopyFromRecordset RS1
End With
RS1.Close
Set RS1 = Nothing
CN1.Close
Set CN1 = Nothing
Exit Sub
ErrorHandler:
RS1.Close
Set RS1 = Nothing
CN1.Close
Set CN1 = Nothing
Сервер - MSSQL 2005.Параметри в конектстринге реальные.
CN1.Open проходит а RS1.Open нэт :(
В логах сервера, юзера Reader нету.
Помогите сообразить,где грабли.