[Resolvido]Localizar através de ListBox, clonado em controles NãoAcoplados

Olá pessoal, tudo bem?
Caras, estou tentando localizar num Form com controles desacoplados através de uma Listbox da seguinte maneira:

Private Sub lstlogin_AfterUpdate()
'On Error Resume Next
Dim rs As Object
Set rs = Recordset.Clone
rs.FindFirst "[login] = " & str(Nz(Me![lstlogin], 0)) And "[UserNome] = " & str(Nz(Me![lstlogin], 1))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.lstlogin.SetFocus
End Sub

Não estou conseguindo, simplesmente não acontece nada (rrrrr)! Será que os amigos podem ajudar (de novo... rsrs)

Agradeço desde já!
Paulo César

Manda o BD ai colega.

Cumprimentos.

Opa! Como vai PILOTO, blz? Cara, "feriadão" e a gente se matando aqui, to nem limpando a casa por causa deste projeto... kkkk
Nossa! o lance do pendriver ta me deixando de cabelos brancos (mais rsrs)

Vamos ao que interessa...
Limpei o BD... aqui tá abrindo... se não abrir ae, por favor, me fale, OK?
P.S.: não repare a bagunça, pois ainda to mexendo igual um "tatu"
Abraço cara!

Falta os Png´s


Cumprimentos.

Poxa que distraído que eu fui!
Duas vezes compactado RAR e ZIP.
Abraço PILOTO!

De maiores detalhes do que pretende... Cumprimentos.

Olá Piloto... funciona como um controle de pesquisa, mas os controles estão desacoplados... é aí que tava "zangando"... rsrs
Então eu usei um código que encontrei num exemplo do JPaulo, conforme abaixo:
----------------------
On Error Resume Next
On Error GoTo Err_lstlogin_AfterUpdate
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

On Error Resume Next
lstlogin.SetFocus
If lstlogin.Value > 0 Then
strSQL = "SELECT * FROM Usuario WHERE login = '" & lstlogin.Value & "'"

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
If Not rs.BOF Then
Me.txtLogin = rs("login")
Me.UserNome = rs("UserNome")
Me.cbxGrupo = rs("grupo")
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End If
Me.lstlogin.SetFocus
--------------------
Eu fiz umas adaptações, como aí acima e deu certo.
Você baixou o meu anexo? Se sim, coloque este código lá e vc vai ver o que eu pretendo...
De qq forma, amigão, valeu muito por tentar me ajudar!
Agradeço muito. Luz e Paz!
Paulo César

O Fórum agradece o retorno.