برنامه ساده دفترچه تلفن

سلام به اهالی خوب پی سی ورلد

من یه برنامه ی ساده دفتر چه تلفن نوشتم با وی بی که امکان جستجو از طریق شماره تلفن رو داشته باشه.
حالا میخوام یه جوری بشه که این امکان جستجو از طریق دیگر گزینه های اون یعنی : اسم، فامیل، آدرس وجود داشته باشه

ممنون میشم سریعتر کمکم کنین



کد برنامه برای کلید جستجو :

Private Sub Command3_Click()
Open "D:\test.txt" For Input As #1
Do While Not EOF(1)
Input #1, a, b, c
If c = "" & Text3.Text & "" Then
Text1.Text = a
Text2.Text = b
Exit Do
End If
Loop
Close
End Sub

کد برنامه برای کلید ثبت :

Private Sub Command1_Click()
Open "D:\test.txt" For Append As #1
Write #1, Text1.Text, Text2.Text, Text3.Text, Text4.Text
Close #1
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

کد:

---

Private Sub Command1_Click()
If Text1.Text <> "" Then
Form2.Adodc1.RecordSource = "SELECT *FROM aaa WHERE [name]='" & Text1.Text & "'"
Form2.Adodc1.Refresh
End If
Form2.Show
Form3.Visible = False
End Sub

---

به جای aaa اسم table و به جای name هم نام مورد نظر