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