Visual Basic - estoy confundido

Hola tengo el siguiente código
Set rstUsuarios = new ADODB.recordset
Sql = ”Select * from usuarios”
rstUsuarios.open sql,db,adOpenKeySet,adLockOptimistic
N=1
Numero = rstusuarios.recordcount + 1
Do while n<3
Set rstUsuarios = new ADODB.recordset
Sql = ”Select * from usuarios where us_id =” & numero
rstUsuarios.open sql,db,adOpenKeySet,adLockOptimistic
if rstusuarios.recordcount=0 then
exit do ‘ Ya lo encontramos
else
numero = numero + 1
endif
loop
El código que esta descrito en realidad no estoy muy seguro de lo que hace me confundo por que busca un registro pero la variable nuemro empieza desde el ultimo registro

Yo utilizo el siguiente codigo para buscar un registro en especifico en una determinada tabla:

Private Cnn As ADODB.Connection
Private Rst As ADODB.Recordset
Dim strQuery, strConexion As String

Private Sub cmdBuscar_Click()
Screen.MousePointer = 11 ' PUNTERO DE RELOJ
Set Cnn = Nothing
Set Rst = Nothing
Set Cnn = New ADODB.Connection
Set Rst = New ADODB.Recordset
strQuery = "SELECT IdCliente, NombreCompañía FROM Clientes WHERE " & _
"IdCliente='" & Trim(txtBuscar.Text) & "';"
Cnn.Open strConexion
With Rst
.Open strQuery, Cnn, adOpenStatic, adLockReadOnly, adCmdText
If .RecordCount <> 0 Then
txtNombre.Text = !NombreCompañía
txtDireccion.Text = !Dirección
Else
txtBuscar.Text = ""
txtNombre.Text = ""
txtDireccion.Text = ""
txtBuscar.SetFocus
MsgBox "NO SE ENCONTRARON REGISTROS", vbExclamation, "BUSCAR"
End If
.Close: Cnn.Close
End With
Set Rst = Nothing
Set Cnn = Nothing
Screen.MousePointer = 1 'PUNTERO POR DEFECTO
End Sub

Private Sub Form_Load()
strConexion = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\NWIND.MDB"
End Sub
Pega este codigo e inserta 3 caja de texto y un Command Button