Доброго всем времени суток. Возникла проблемка, нигде не могу найти ответ. Суть вот в чем. Есть DBgrid. Есть 2 элемента Data.
Как сделать так, чтобы в режиме работы, предположим при нажатии кнопки, dbgrid менял свойство datasource с Data1 на Data2. Заранее спасибо.

Class does not support Automation or does not support expected interface

нет, не работает
Чем может быть вызвано данное сообщение?

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\База.mdb"
Data2.DatabaseName = App.Path & "\База1.mdb"
End Sub

Private Sub Command1_Click()
Set DBGrid1.DataSource = Data1
End Sub

Private Sub Command2_Click()
Set DBGrid1.DataSource = Data2
End Sub

Прошу сильно не высмеивать, я только учусь. я так понял, что такая процедура должна работать?
изначально если установить свойство Datasource в Data1 в режиме проектирования, то при запуске показывает таблицу, нажимаю на кнопку - выдает ошибку
Что не так

юзаю vb 6.0

через селект он будет выбирать таблицу из базы данных, а мне нужно поменять data1 на data2