Помогите с компонентом Data

[Inga]

Здравствуйте!

У меня такая проблема. Есть две базы Access (две таблицы) в каждой таблице три столбца Поле1, Поле2, Поле3
мне нужно программно объеденить эти две таблицы в одну без потери данных.
Я делала вот так кинула на форму два компонента Data1 и Data2 и 6 текстовых полей
Text1 это Поле1 (Data1)
Text2 это Поле2 (Data1)
Text3 это Поле3 (Data1)
и
Text4 это Поле1 (Data2)
Text5 это Поле1 (Data2)
Text6 это Поле1 (Data2)

код такой

Private Sub Command1_Click()
Data1.Recordset.MoveFirst
Do While x = 0
DoEvents
Data2.Recordset.AddNew
Text4.Text = Text1.Text
Text5.Text = Text2.Text
Text6.Text = Text3.Text
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then x = 1

Loop
End Sub

Но ничего не получается
базы я подключила к компанентам Data
Text1.DataField тоже сделала правильно, но не получается

[dr.MIG]

Это надо сделать обязательно из своей программы или главное сделать хоть как-то? Для решения подобной задачи есть встроенные средства Access (ключевая фраза для поиска решения «запрос на объединение»).

[Inga]

Это надо сделать обязательно из своей программы или главное сделать хоть как-то? Для решения подобной задачи есть встроенные средства Access (ключевая фраза для поиска решения «запрос на объединение»).

Большое спасибо все получилось.
Мне небыло разницы как сделать, главное объеденить!