Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & server.mappath("database.mdb")
SQL="SELECT * FROM login1 where username like '"&username&"' and password like '"&password&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1, 3