متشكر شباب
انا عملت كدا بالظبط
<%
Dim DBConnA, strConnectA
Set DBConnA = Server.CreateObject("ADODB.Connection")
strConnectA = "Provider=SQLOLEDB;Data Source=HASAN\SQLEXPRESS;Initial Catalog=UDW_VT_ACCOUNT;user ID=;password=;"
DBConnA.Open strConnectA
%>