переделка sql запроса из 2003 в 2007

[madace]

Добрый день всем!
6 лет назад написал макрос- щас понадобился, но в 2010 не работает
Помогите исправить плз

Я НЕ ПРОГРАМИСТ, а юзер ! НОГАМИ НЕ ПИНАЙТЕ, ПЛЗ!

Public Sub totaltest()
Dim connection As ADODB.connection
Dim recordset As ADODB.recordset
Dim commanden As String
Const connectionstring As String = _
"Provider=SQLOLEDB.1" + _
"Persist Security Info=false;User ID=xx;Password=xx;Initial Catalog=xxxx;Data Source=xx;Auto Translate=True;Packet Size=4096;Workstation ID=xxx;Use Encryption for Data=False;Tag with column collation when possible=False"

On Error GoTo cleanup



Set connection = New ADODB.connection
Set recordset = New recordset
Call connection.Open(connectionstring)


commanden = "SELECT COUNT(*) FROM test"
Set recordset = connection.Execute(commanden)
lastnmb = recordset.Fields(0).Value

commanden = "SELECT cod FROM test"
Set recordset = connection.Execute(commanden)
recordset.MoveFirst



For x = 1 To lastnmb

On Error Resume Next
Cells(x + 1, 1) = recordset.Fields(0)
recordset.MoveNext
Next x
commanden = "SELECT *FROM test"
Set recordset = connection.Execute(commanden)
fieldsnum = recordset.Fields.Count
fld = 0
While fld < fieldsnum
Cells(1, fld + 1) = recordset.Fields(fld).Name
fld = fld + 1
Wend
x = 2
While Cells(x, 1) <> ""
commanden = "SELECT *FROM test WHERE IDENT=" & Cells(x, 1)
Set recordset = connection.Execute(commanden)

recordset.MoveFirst
fieldsnum = recordset.Fields.Count

fld = 0
While fld < fieldsnum
Cells(x, fld + 1) = recordset.Fields(fld)

fld = fld + 1
Wend
x = x + 1
Wend
cleanup:
If (Err.Number <> 0) Then Debug.Print Err.Description
If (connection.State = ObjectStateEnum.adStateOpen) Then connection.Close
If (recordset.State = ObjectStateEnum.adStateOpen) Then recordset.Close
End Sub

Что поменять, чтоб работало?

С уважением,
Madace

[madace]

Вопрос снимаю- все работает
галочку надо было поставить

Tools menu / References

"Microsoft ActiveX Data Objects 6.0 Library"