اینم یه نوع دستور serach از db

dim cnn as adodb.connection
dim rst as new adodb.recordset
..
..
do while not rst.eof
if rst!fild name=text1.text
text2.text=rst!field name
.
.
exit do
end if
rst.movenext
loop
rst.close