Ok, Iv'e got my macro code for a login form and will post it shortly. The whole idea for the login for is to be able to type in a username and password and will dispaly a confirmation message which lets the user know they have successfully logged in. The user will then be automatically directed to the main menu part of my system. I have successfully got the login for to display an error message when the user doesnt type in a username or password but I cannot get the system to log the user in if they enter a username and password. Could someone please look at my code below and give me an idea were ive went wrong? thank you :)

--------------------------------------------------------------------------

Sub LogIn()

'stops the screen from flickering
Application.ScreenUpdating = False

'declares variables
Dim uname As String
Dim pword As String
Dim RowNum As Integer
Dim usercount As Integer
Dim rowcount As Integer

'moves worksheet and sets values to variables
Sheets("LogInForm").Select
uname = Range("Username")
pword = Range("Password")
RowNum = Range("NumUsers")

'if values are not empty
If uname < "" And pword < "" Then

'set variables as values to move through rows
usercount = 1
rowcount = 1

'move sheets
Sheets("UserDetails").Select

'
Do While usercount <= RowNum

'if correct uname and pword are correct values
If uname = Range("A" & rowcount) And pword = Range("B" & rowcount) Then

'move worksheets and reset values , then moves sheets
Sheets("LogInForm").Select
Range("Username") = ""
Range("Password") = ""
Sheets("MainMenu").Select
Exit Sub

'if values dont match
Else

Error = True
usercount = usercount + 1
rowcount = rowcount + 1

'ends if statement
End If

'starts loop
Loop

'if the boolean is true
If Error = True Then

'moves sheets, clears form, displays message box
Sheets("LoginForm").Select

Range("Username") = ""
Range("Password") = ""
MsgBox "Please try again, You must enter a valid username and password", vbOKOnly

'ends if statement
End If

'if the boolean is false then display error message
Else

'displays message box
MsgBox "You must enter both a username and password"

'ends if statement
End If

End Sub