Public Sub OpenTabl()
  Dim file_mdb As String: Dim Password As String: Dim path_mdb As String: path_mdb = "F:\Готові проги візуала\МенеджерMp3\": file_mdb = "F:\Готові проги візуала\МенеджерMp3\Baza.mdb"
  Set db = New ADODB.Connection
  Set BDTbl1 = New ADODB.Recordset
  Set BDTbl2 = New ADODB.Recordset
  Set BDTbl3 = New ADODB.Recordset
  Set BDTbl4 = New ADODB.Recordset
  Set BDTbl5 = New ADODB.Recordset
  db.ConnectionString = "DBQ=" & file_mdb & ";UID=admin;PWD=" & Password & ";DRIVER={Microsoft Access Driver (*.mdb)};DefaultDir=" & path_mdb & ";": db.Open
  BDTbl1.CursorType = adOpenKeyset:  BDTbl1.LockType = adLockOptimistic:  BDTbl1.Open "TblFileNamAndPathMP3NaDisku", db, , , adCmdTable
  BDTbl2.CursorType = adOpenKeyset:  BDTbl2.LockType = adLockOptimistic:  BDTbl2.Open "TblNazvaPisni", db, , , adCmdTable
  BDTbl3.CursorType = adOpenKeyset:  BDTbl3.LockType = adLockOptimistic:  BDTbl3.Open "TblVikonavec", db, , , adCmdTable
  BDTbl4.CursorType = adOpenKeyset:  BDTbl4.LockType = adLockOptimistic:  BDTbl4.Open "TblURLResurs", db, , , adCmdTable
  BDTbl5.CursorType = adOpenKeyset:  BDTbl5.LockType = adLockOptimistic:  BDTbl5.Open "TblSinVikonavca", db, , , adCmdTable
End Sub

 Dim TmpSortMusicArtistGrup As SortMusicArtistGrup
 Open PapkiPath + "\ArtistGrups.txt" For Random As # 5  Len = Len(TmpSortMusicArtistGrup)

  BDTbl3.AddNew
  BDTbl3("Vikonavec").value = Trim(TmpSortMusicArtistGrup.RealNameArtist)
  
    BDTbl5.AddNew
    BDTbl5("id").value = BDTbl3("Kod").value
    BDTbl5("sinVikonavec").value = Trim(TmpSortMusicArtistGrup.ArtistGrups)

?BDTbl3("Kod").value