Username & password problem

'Get the Username entered by the user
Username = Request.Form("txtUsername")

'Create you objects
Set Conn = Server.CreateObject("ADODB.Connection")
Set results = Server.CreateObject("ADODB.Recordset")

'Connect to the database
Conn.Open "Your ConnectionString"
'Assuming your connectionstring looks something like this
"Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=;"

'The sql statement that checks the database
sql = "SELECT * FROM tableName WHERE UserNameField = '" & Username & "'"

'Execute the sql statement
results = Conn.Execute(sql)

If(results.eof) Then
   No record matches the Username
End If

Do until results.eof
   'There were records in the database that match the username
   'Check if password field is empty
   If(results("PasswordField") = "") Then
      'Password field is empty
   End If
   results.movenext
Loop

'Close the database connection
Conn.Close

'Set your objects to nothing
Set results = nothing
Set Conn = nothing