Consulta en access2000

Hola
Tengo un problema, deseo hacer un a consulta pero no se como hacerla, se que se puede hacer con el asistente pero me aparece una ventanita y no quiero que aparezca,
quiero poner un text y ai poner lo que quiero buscar y al pulsar un botón me muestre los datos de ese registro, pero no he podido hacerlo.
Tengo este código pero solo me dice dice si esta el registro actual, no me checa los demás registros de la tabla
Public Function FormFindRecord(IdValue As Variant) As Boolean
On Local Error GoTo FormFindRecord_Err
Me.SetFocus
Me!contrasenas.Enabled = True
DoCmd.GoToControl "contrasenas"
DoCmd.FindRecord IdValue, , True, , True
DoEvents
If contrasena = IdValue Then
MsgBox "s"
FormFindRecord = True
End If
Text21 = Me.Form.CurrentRecord
Me.Form.Refresh
Me.Form.Requery
FormFindRecord_End:
DoCmd.GoToControl "text11"
Exit Function
FormFindRecord_Err:
MsgBox Error$
Resume FormFindRecord_End
End Function
este lo saque de internet y lo acomode al mio pero no me funciono
También tengo este otro, este si me da los datos, pero no se posiciona en el registro que busque, si no que los tengo que mostrar en otro text por que si pongo en el mismo text donde muestro la información y esta vinculado a la tabla me cambia la información del registro actual y no del que busque
Private Sub Command16_Click()
Dim rs1 As Object
Dim SQL As String
SQL = "SELECT tipo FROM passwords WHERE passwords.contrasena='" & contrasenas & "';"
Set rs1 = CurrentDb().OpenRecordset(SQL)
If rs1.RecordCount = 1 Then
Text11 = rs1.Fields("tipo")
Text13 = rs1.Fields("tipo")
End If
If rs1.RecordCount = 0 Then
Text11 = 0
Text13 = 0
End If
DoCmd.FindRecord contrasenas, , True, , True
End Sub
Espero que me orientes de como hacerlo