<%   
 Dim conn, rs, SQLstr   
 Set conn = Server.CreateObject("ADODB.Connection")   
 Set rs = Server.CreateObject("ADODB.Recordset")   
 conn.Open "myDSN"   
 SQLstr="SELECT * FROM Users where username='Amit'"   
 rs.Open SQLstr,conn   
 'rs.Find "Username='Amit'", false, 0, 1   
 If rs.EOF Then     
  Response.Write "The Name you search wasn't found"   
 Else     
  Response.Write "Bla"   
 End If   
 rs.Close   
 conn.Close   
 Set rs = Nothing   
 Set conn = Nothing
%>