bueno, arreglarlo como quien dice arreglarlo, pues solo tu puedes, ya que si esa consulta te sale vacía es por que en la tabla
Users no hay un registro que en el campo
username sea igual a
admin
Si quieres que no te truene (aunque el programa no funcionará como esta diseñado) solo agrega un IF:
Código:
sql = "SELECT pass FROM Users WHERE username = 'admin'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsuser.Open sql, dbconn, 3, 3
if not rsuser.EOF Then
lpass = rsUser("pass")
End If
rsUser.close