Проблемка..при загрузке

[FesK]

Есть список БД Аксеска он загнан в Listbox при переходе по элементам списка загружается соответствующая БД, но при переходе на последний элемент выдается ошибка Run Time Error (-2147417848(80010108)).... в чем может быть дело?

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

LimDate.Text = ""
Dim ind As Integer
Dim constr as string
constr = Grslist.Text
Grsbase.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Access Database;Mode=ReadWrite;Initial Catalog=" & App.Path & "\GRS\" & constr & ".mdb"
Grsbase.RecordSource = "Лимит"
Monthdata.DataField = "Месяц"
Daydata.DataField = "День"
Hourdata.DataField = Час"
LimDate.ListField = "Период"
Grsbase.Caption = constr
Grsbase.Refresh (!!ошибка!!)

......

[Ser-Robotiaga]

Может в последней БД в таблице "Лимит" нет полей которые ты перечислил в коде или некорректные значения?

[FesK]

Хм....да нет...вроде как все в норме...таблицы все однотипного характера, абсолютно..