Set ConnectionString = Server.CreateObject("ADODB.Connection")
 ConnectionString.Open "Provider=SQLOLEDB.1; Password=pass@123;User            ID=sa;Initial Catalog=USERDB;  Data Source=SQLMSSQLSERVER2014;" 

 Dim rs
 strSQL = "SELECT * FROM user WHERE username= 'test' AND Password='test123'
        rs.Open strSQL, ConnectionString