И так, напрямую подключаюсь к таблице сервера, но не могу получить данные таблицы

Public Sub main()
    Dim cnt As ADODB.Connection
    Dim etp, msk As Object
    Set etp = CreateObject("ADODB.Recordset")
    Set msk = CreateObject("ADODB.Recordset")
Set cnt = New ADODB.Connection
cnt.ConnectionString = "ODBC;Description=test;Driver=SQL Server; SERVER=rtvs-sql1204.local;APP=Microsoft Office 2010; UID=user;PWD=111111;DATABASE=db_production;TABLE=dbo_tehpro_tblprocessdefinitions"
'конектимся прямо к таблице
cnt.Open
Ask = "SELECT [subdivision], [master], [code], [element_def] FROM [dbo_tehpro_tblprocessdefinitions]"
Set etp = cnt.Execute(Ask)
cnt.Close
End Sub

Что я делаю не так?

http://www.sql.ru/forum/1294277/tuplu-s-zaprosom