Помогите с примером работы VB и Access. Пожалуйста

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

Если кому не жалко, подкиньте мне пример работы Vb и Access-a. А то представления не мею как данные из таблиц Аксесса вытаскивать. А если готовую базу пришлите. расцелую. :) Пожалуйста ребята, вы же добрые!!! я знаю, добрые!
removed@mail.ru

Решение задачи: «Помогите с примером работы VB и Access. Пожалуйста»

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

                            <font color="blue">Dim</font> con <font color="blue">As</font> <font color="blue">New</font> ADODB.Connection
<font color="blue">Dim</font> rs <font color="blue">As</font> <font color="blue">New</font> ADODB.Recordset
con.<font color="blue">Open</font> (<font color="teal">"Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\par\biblio.mdb;Uid=Admin;Pwd=;"</font>)
<font color="blue">With</font> rs
    .<font color="blue">Open</font> <font color="teal">"select * from authors"</font>, con, adOpenStatic
    <font color="blue">For</font> i = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> .Fields.Count - <font color="darkblue"><b>1</b></font>
        .MoveFirst
        <font color="blue">Do</font> <font color="blue">Until</font> .EOF
            Debug.<font color="blue">Print</font> .Fields(i).<font color="blue">Name</font> & <font color="teal">" = "</font> & .Fields(i).Value
            .MoveNext
        <font color="blue">Loop</font>
    <font color="blue">Next</font> i
<font color="blue">End</font> <font color="blue">With</font>
                        