asagidaki kodla Sql Sever veri tabanina ulasabilirsiniz. Kesinlikle çalisir .Daha önce bazi forumlarda anlatilan Sql servere baglanti kodlari malesef çalismiyor.SQL SERVER konusunda daha çok paylasalim  bu konuda fazla kaynak yok 
<% 
Baglanti1 ="Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=" "DRIVER=SQL Server;SERVER=ip adres;UID=sa;APP=Visual Basic;WSID=kullanici;DATABASE=dbadi;Network=DBMSSOCN;Address=ip adres,1433" "" 
Set Baglanti = Server.CreateObject("ADODB.Connection" ) 
Baglanti.Open (Baglanti1) 
Set rst = Server.CreateObject("ADODB.RecordSet" ) 
%>