Code: Select all
Set OCONN = New ADODB.Connection
OCONN.ConnectionTimeout = 0
SQL = "Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & T_DATABASE & ";Data Source=servername"
OCONN.Open SQL ', adAsyncConnect
Code: Select all
Set OCONN = New ADODB.Connection
OCONN.ConnectionTimeout = 0
SQL = "Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & T_DATABASE & ";Data Source=servername"
OCONN.Open SQL ', adAsyncConnect