FindRecord help

[Jamesharks]

I have 2 forms; one called frmLogin and another called user_info.

On frmLogin I have a text box called USERNAME and a command button. When you click the command button the following code is run:

This Code Works (Or atleast It should)

Private Sub Command29_Click()
    Dim strUSERNAME As String
    Dim strProcess As String
    
    strUSERNAME = Me.USERNAME
    strProcess = LOGIN(strUSERNAME)
End Sub

The code takes what has been typed into to the textbox USERNAME and passess it onto the module LOGIN which has the following code:

This Code Does NotWork

Public Function LOGIN(strLOGIN As String)
    
    DoCmd.OpenForm "user_info"
    DoCmd.FindRecord strLOGIN
    
End Function

I know this code does not work but I don't know what to do to get it working. I am trying to get it to open the form user_info and display records relating to what has been typed into the textbox USERNAME.

If you have any suggestions please reply.

Thankyou