Мучаюсь с созданием базы данных в vba

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

помогите написать код,который бы выполнял поиск по таблице excel
Решение задачи: «Мучаюсь с созданием базы данных в vba»

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

                            <font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font>

<font color="blue">Private</font> <font color="blue">Sub</font> clear()
TextBox1.Text = <font color="teal">""</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> CommandButton1_Click()
Range(<font color="teal">"A1"</font>).Value = <font color="teal">"Ãîðîä"</font>
Range(<font color="teal">"B1"</font>).Value = <font color="teal">"Ñòðàíà"</font>
Range(<font color="teal">"C1"</font>).Value = <font color="teal">"Äàòà íà÷àëà"</font>
Range(<font color="teal">"D1"</font>).Value = <font color="teal">"Äàòà îêîí÷àíèÿ"</font>
Range(<font color="teal">"E1"</font>).Value = <font color="teal">"Çîëîòûå ìåäàëè"</font>
Range(<font color="teal">"F1"</font>).Value = <font color="teal">"Âñåãî ñòðàí"</font>
Range(<font color="teal">"A:A"</font>).ColumnWidth = <font color="darkblue"><b>15</b></font>
Range(<font color="teal">"B:B"</font>).ColumnWidth = <font color="darkblue"><b>15</b></font>
Range(<font color="teal">"C:C"</font>).ColumnWidth = <font color="darkblue"><b>15</b></font>
Range(<font color="teal">"D:D"</font>).ColumnWidth = <font color="darkblue"><b>15</b></font>
Range(<font color="teal">"E:E"</font>).ColumnWidth = <font color="darkblue"><b>15</b></font>
Range(<font color="teal">"F:F"</font>).ColumnWidth = <font color="darkblue"><b>15</b></font>
Worksheets(<font color="teal">"Ëèñò1"</font>).Activate
à = Application.WorksheetFunction.CountA(Range(<font color="teal">"A:A"</font>)) + <font color="darkblue"><b>1</b></font>
Cells(à, <font color="darkblue"><b>1</b></font>) = TextBox1.Text
Cells(à, <font color="darkblue"><b>2</b></font>) = TextBox2.Text
Cells(à, <font color="darkblue"><b>3</b></font>) = TextBox3.Text
Cells(à, <font color="darkblue"><b>4</b></font>) = TextBox4.Text
Cells(à, <font color="darkblue"><b>5</b></font>) = TextBox5.Text
Cells(à, <font color="darkblue"><b>6</b></font>) = TextBox6.Text
TextBox1.Text = <font color="teal">""</font>
TextBox2.Text = <font color="teal">""</font>
TextBox3.Text = <font color="teal">""</font>
TextBox4.Text = <font color="teal">""</font>
TextBox5.Text = <font color="teal">""</font>
TextBox6.Text = <font color="teal">""</font>
<font color="blue">Dim</font> a(<font color="darkblue"><b>20</b></font>) <font color="blue">As</font> <font color="blue">String</font>
i = <font color="darkblue"><b>1</b></font>
a(i) = TextBox1.Text
TextBox2.Text = <font color="teal">""</font>
TextBox3.Text = <font color="teal">""</font>
TextBox4.Text = <font color="teal">""</font>
TextBox5.Text = <font color="teal">""</font>
TextBox6.Text = <font color="teal">""</font>
i = i + <font color="darkblue"><b>1</b></font>
<font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>999</b></font>
<font color="blue">If</font> TextBox1.Text = Cells(i, <font color="darkblue"><b>1</b></font>) <font color="blue">Then</font> TextBox2 = Cells(i, <font color="darkblue"><b>2</b></font>)
<font color="blue">If</font> TextBox1.Text = Cells(i, <font color="darkblue"><b>1</b></font>) <font color="blue">Then</font> TextBox3 = Cells(i, <font color="darkblue"><b>3</b></font>)
<font color="blue">If</font> TextBox1.Text = Cells(i, <font color="darkblue"><b>1</b></font>) <font color="blue">Then</font> TextBox4 = Cells(i, <font color="darkblue"><b>4</b></font>)
<font color="blue">If</font> TextBox1.Text = Cells(i, <font color="darkblue"><b>1</b></font>) <font color="blue">Then</font> TextBox5 = Cells(i, <font color="darkblue"><b>5</b></font>)
<font color="blue">If</font> TextBox1.Text = Cells(i, <font color="darkblue"><b>1</b></font>) <font color="blue">Then</font> TextBox6 = Cells(i, <font color="darkblue"><b>6</b></font>)
<font color="blue">Next</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> CommandButton2_Click()
TextBox1.Text = <font color="teal">""</font>
TextBox2.Text = <font color="teal">""</font>
TextBox3.Text = <font color="teal">""</font>
TextBox4.Text = <font color="teal">""</font>
TextBox5.Text = <font color="teal">""</font>
TextBox6.Text = <font color="teal">""</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        