Подключение к dbf

[CWD]

Добрый день возникла проблема с подключение к файлу с именем например SUCUP060.dbf. В этом файле есть поле TE.

Function first()
Dim db As Database
Dim ocon As ADODB.Connection
Dim rs As ADODB.Recordset
Set ocon = New ADODB.Connection
ocon.Open "Driver={Driver do Microsoft dBase (*.dbf)}; SourceType=DBF; SourceDB=d:\SUCUP060;"
rs.Open "SELECT TE FROM SUCUP060", ocon
End Function

На строчке "rs.Open "SELECT TE FROM SUCUP060", ocon" выдает "Object variable or With block variable not set". Перепробовал много разных вариантов.

[AndVGri]

Исправьте на

Dim rs As New ADODB.Recordset