boton buscar

[vampirito]

ya hice la coneccion a mi base de datos, pero tengo duda de como hacer funcionar el boton buscar, quiero que al poner datos en un caja de texto lo busque en sql y si lo encuentra me arroje los demas datos en otras 2 cajas de texto diferentes.

este es mi codigo:

Private Sub Command1_Click()
'Dim SQL As String
'SQL = "select * from usuarios where nombre = '" & Text4.Text & "'"
'cnn.Open
'rst.Open "select * from usuarios where nombre ", cnn, adOpenStatic, adLockOptimistic
'= '" & Text4.Text & "'"
If rst.RecordCount > 0 Then

Text1.Text = rst("paterno") & " " & rst("materno")
Label4.Caption = "usuario encontrado"
Label4.FontBold = True
Label4.BackColor = &HFF&
Else
Label4.Caption = "usuario inexistente"
Label4.FontBold = True
Label4.BackColor = &HFF00&
End If
End Sub

solo me falta la comparacion de la query con lo que ponga en la caja de texto.