Связанные таблицы в базе access - VB

Формулировка задачи:

Всегда доверял своему методу open for random или binary и все работает отлично, только много кода... Решил сэкономить времья и подключить всю базу на mdb файл, тем более что при ошибке (вдруг какое-то поле забуду а база уже заполнена...) могу быстро все исправить.
1. Поключил две таблицы извесным методом

OpenTabl()
   file_mdb  :  Password  :  path_mdb  : path_mdb = : file_mdb = 
   db =  ADODB.Connection
   BDTbl1 =  ADODB.Recordset
   BDTbl2 =  ADODB.Recordset
   BDTbl3 =  ADODB.Recordset
   BDTbl4 =  ADODB.Recordset
   BDTbl5 =  ADODB.Recordset
  db.ConnectionString =  & file_mdb &  & Password &  & path_mdb & : db.
  BDTbl1.CursorType = adOpenKeyset:  BDTbl1.LockType = adLockOptimistic:  BDTbl1. , db, , , adCmdTable
  BDTbl2.CursorType = adOpenKeyset:  BDTbl2.LockType = adLockOptimistic:  BDTbl2. , db, , , adCmdTable
  BDTbl3.CursorType = adOpenKeyset:  BDTbl3.LockType = adLockOptimistic:  BDTbl3. , db, , , adCmdTable
  BDTbl4.CursorType = adOpenKeyset:  BDTbl4.LockType = adLockOptimistic:  BDTbl4. , db, , , adCmdTable
  BDTbl5.CursorType = adOpenKeyset:  BDTbl5.LockType = adLockOptimistic:  BDTbl5. , db, , , adCmdTable
 

2. Из базы в своем формате (метод open for random) хотел перенести данные в базу access, но сделать связь таблиц, а конкретно у меня таблица Артист и СинонимАртист (пример: Filip Kirkorov, Киркоров, Киркороф = Ф.Киркоров). В таблице Артист создано поле Kod типу счетчик, а в СинонимАртист тип числовой

TmpSortMusicArtistGrup  SortMusicArtistGrup
  PapkiPath +   Random  # Len = Len(TmpSortMusicArtistGrup)

в цыкле

BDTbl3.AddNew
  BDTbl3().value = Trim(TmpSortMusicArtistGrup.RealNameArtist)
  
    BDTbl5.AddNew
    BDTbl5().value = BDTbl3().value
    BDTbl5().value = Trim(TmpSortMusicArtistGrup.ArtistGrups)

Проблема

?BDTbl3().value

дает пустое значение, там же счетчик, должно отдавать число или как ?

Решение задачи: «Связанные таблицы в базе access»

textual
                            Листинг программы 
                        
                            <font color="teal">"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="</font> & file_mdb & <font color="teal">";User Id=admin;Password=;"</font>