База данных на open for random. Добавление нового поля. Удобный экспорт и импорт - VB

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

Существуют или нет функции которые могут сообщить что в

GBD_Artist

есть поля , , .... какого типа и размер As String ?
Задал такой вопрос, потому что, сделал базу данных. Весит например 20мб. Нужно добавить поле (в процесе новых идей) и базу сложно всегда сливать в временную а потом обратно. Всегда должен писать отдельно для этого процедуру. Может есть решение ?

GBD_Artist
  ZmI_Artist_PN   *                 
  Nxt_ZmI_Artist_PN                   
  ZmI_Artist_PN_Prizv   *          
  Nxt_ZmI_Artist_PN_Prizv              
  ZmI_Artist_PN_Real   *            
  Nxt_ZmI_Artist_PN_Real                
  ZmI_Artist_PN_Prizv_Real   *      
  Nxt_ZmI_Artist_PN_Prizv_Real         
  BAN_ZmI_Artist_PN_Real             
  NtF_ZmI_Artist_PN_Real           
  Dbl_ZmI_Artist_PN_Real            
  ZmI_Artist_PN_Real_Link_Sirec       
  ZmI_Artist_PN_Real_Link_SkN         
  ZmI_Artist_PN_Real_Link_Path        
  ZmI_Artist_PN_Real_Link_Track         
  ZmI_Artist_PN_Real_Link_URL           
  ZmI_Artist_PN_Real_Link_Info         
  ZmI_Artist_PN_Real_Link_avtozamina   
  ACS_ZmI_Artist_PN_Real            
  Del_ZmI_Artist_PN_Real            
 

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

Решение задачи: «База данных на open for random. Добавление нового поля. Удобный экспорт и импорт»

textual
                            Листинг программы 
                        
                            <font color="blue">Dim</font> cn, sConn$, sSQL$, sDBPath$

sDBPath=<font color="teal">"C:\mydatabase.mdb"</font>
sConn = <font color="teal">"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="</font> & sDBPath & <font color="teal">";User Id=admin;Password=;"</font>
<font color="#00AA00">' Connection strings for Access  http://connectionstrings.com/access</font>

<font color="blue">Set</font> cn = CreateObject(<font color="teal">"ADODB.Connection"</font>)
cn.<font color="blue">Open</font> sConn

sSQL = <font color="teal">"create table table1(f1 integer primary key, f2 char(10), f3 DateTime)"</font>

cn.Execute sSQL

sSQL= <font color="teal">"insert into table1(f1, f2, f3) values (1060, 'HEAVY RAIN' , #02/24/2011#)"</font>

cn.Execute sSQL

<font color="#00AA00">' sSQL = <font color="teal">"delete from table1 where f1 = 1880"</font></font>
<font color="#00AA00">' sSQL = <font color="teal">"drop table table1"</font></font>

cn.<font color="blue">Close</font>: <font color="blue">Set</font> cn = <font color="blue">Nothing</font>