Adodc.Refresh Error

[XATTAB]

Уже полмесяца не могу найти решения такой проблемы.
Когда я пытаюсь после отправления SQL запроса
обновить элемент Adodc1 выплывает ошибка на весь экран.
Причем я скачивал и устанавливал
MDAC 2.8, но не помогло

Код: Выделить всё

private sub Reconnect()
With Adodc1
   .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\articles;Persist Security Info=False"
   .RecordSource="SELECT * FROM Articles"
End With
Set DG.DataSource = Adodc1
Adodc1.Refresh <-'а вот здеся этот глюк\багафича
помогите его пофиксить