База даних mdb. SQL запрос. Количество записей. Класс - VB

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

Сделал примитивный класс для работы с базой данных.
Ищу вот такие ответы:
1. Нужно также прикрепить еще одну процедуру или функцию чтоб задать SQL запрос. Активировать.
2. После активации чтоб отключить запрос (пользоваться всей таблицей)
и 3. Узнать количество записей в запросе или таблице

CLASS

i  
   NP  
   tm_ReviziaRubrika  
   connectString  
   Clasdb  ADODB.Connection
   ClTable_t1  ADODB.Recordset

  Activate()
   Clasdb =  ADODB.Connection
   ClTable_t1 =  ADODB.Recordset
 
  OpenBaza()
  Clasdb.ConnectionString = 
  Clasdb.
  ClTable_t1.CursorType = adOpenKeyset
  ClTable_t1.LockType = adLockOptimistic
  ClTable_t1. , Clasdb, , , adCmdTable
 
  AddNewZapis(NameFile  , PathFile  )
  ClTable_t1.AddNew
  ClTable_t1.Fields().value = NameFile
  ClTable_t1.Fields().value = PathFile

  CloseBaza()
  ClTable_t1.Save
  ClTable_t1.
  Clasdb.
 
  deactivate()
   ClTable_t1 = 
   Clasdb = 
 

с уважением Андрей

Решение задачи: «База даних mdb. SQL запрос. Количество записей. Класс»

textual
                            Листинг программы 
                        

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

                        