Ayuda en consulta sql y visual basic 6.0 comparando campos txt

[Giny]

ok tengo esto pero no me compara los datos:

sSelect = "SELECT * FROM Usuarios WHERE Nom ='" & (Text1.Text) & "' "
cn.Open "Provider=SQLOLEDB; " & _
"Initial Catalog=STO; " & _
"Data Source=(local); " & _
"integrated security=SSPI; persist security info=True;"
' El recordset para acceder a los datos
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
' Abrir el recordset de forma estática, no vamos a cambiar datos
rs.Open sSelect, cn, adOpenStatic

If (rs.BOF = False) Then
rs.MoveFirst
Do
If (sSelect = Text1.Text) Then
nombre = Text1.Text
Form1.Show
End if
rs.movenext
loop until(enco = 1)or (rs.eof)