traženje sloga u bazi

kako da mi ovo proradi. trebam da upisem neki broj u text1.text i onda po njemu da mi nade u tabeli (mat) taj slog po ključu "ulica" (prvo polje u tabeli)
i kako da napravim opciju match tj. da dalje trazi jos ako ima jos takvih slogova.


probao sam nesto ovako, i zamjenit bb sa text1.text i bez kk i svakako al nikako ne uspjevam.. please help

.
.
Dim bb As String
Dim kk As Integer
bb = Text1.Text
kk = rsAdresar.Open "SELECT * from mat where ulica=bb", cnGlavna, adOpenDynamic, adLockOptimistic
rsAdresar.AbsolutePosition = kk
popunipolja
.
.

Nije ti bas najjasniji kod ali pokusacu...


Ovako

Dim bb As String
Dim kk As Integer
bb = Text1.Text

'Pod pretpostavkom da si deklarisao promenljivu Dim rsAdresar as New Recordset
' i pod uslovom da ti je tekstualno polje u tabeli mat

rsAdresar.Open "SELECT * from mat where ulica= " & " ' " & trim(bb) & " ' ", cnGlavna, _ adOpenDynamic, adLockOptimistic

rsAdresar.MoveFirst

'Na formi iscrtaj komandno dugme i stavi Caption na "Trazi dalje..."

Private sub Command1_Click()

rsAdresar.MoveNext
popuniTextBoxove()

end sub

Za sada toliko, jer mi nije jasno sta si zeleo da kazes, ali se nadam da ce pomoci...