Dim i As Long
  Dim NP As Long
  Dim tm_ReviziaRubrika As Long
  Dim connectString As String
  Dim Clasdb As ADODB.Connection
  Dim ClTable_t1 As ADODB.Recordset

Public Sub Activate()
  Set Clasdb = New ADODB.Connection
  Set ClTable_t1 = New ADODB.Recordset
End Sub
Public Sub OpenBaza()
  Clasdb.ConnectionString = "DBQ=Музика.mdb;UID=admin;PWD=;DRIVER={Microsoft Access Driver (*.mdb)};DefaultDir=D:\Проекти;"
  Clasdb.Open
  ClTable_t1.CursorType = adOpenKeyset
  ClTable_t1.LockType = adLockOptimistic
  ClTable_t1.Open "FileMusic", Clasdb, , , adCmdTable
End Sub
Public Sub AddNewZapis(NameFile As String, PathFile As String)
  ClTable_t1.AddNew
  ClTable_t1.Fields("NameFile").value = NameFile
  ClTable_t1.Fields("PathFile").value = PathFile
End Sub

Public Sub CloseBaza()
  ClTable_t1.Save
  ClTable_t1.Close
  Clasdb.Close
End Sub
Public Sub deactivate()
  Set ClTable_t1 = Nothing
  Set Clasdb = Nothing
End Sub

Public Sub Filter(FltTxt As String)
  ClTable_t1.Filter = FltTxt
End Sub

Public Function CountBD() As Long
  CountBD = ClTable_t1.RecordCount
End Function

If MDB_ArtistMojliviy.RecordCount >  0  Then MDB_ArtistMojliviy.MoveFirst
If MDB_ArtistMojliviy.EOF = False Then
   MDB_ArtistMojliviy.FindNext "NameArtist = '" & VhArtis & "'"
  Do While MDB_ArtistMojliviy.NoMatch = False
     If MDB_ArtistMojliviy.Fields("NameTrack").value = VhTrack Then
       If MDB_ArtistMojliviy.Fields("Path").value = VhPath Then
         Exit Sub
       End If
      End If
      MDB_ArtistMojliviy.FindNext "NameArtist = '" & VhArtis & "'"
  Loop
End If
  MDB_ArtistMojliviy.AddNew
  MDB_ArtistMojliviy.Fields("NameArtist") = VhArtis
  MDB_ArtistMojliviy.Fields("NameTrack") = VhTrack
  MDB_ArtistMojliviy.Fields("Path") = VhPath
  MDB_ArtistMojliviy.Fields("DateEditFile") = FileDateTime(VhPath)
  MDB_ArtistMojliviy.Update