Using ADO to connect to SQL Server behind a firewall

ado|server| Firewall
1. The firewall must be configured to allow port 1433 to be introduced, and 1024-65535 for outgoing ports

2. The connection string must specify the SQL Server address: IP address, server DNS name, or name in the host file

3. The connection string should specify the network Library type, in which case "dbmssocn" (without quotes) is a TCP/IP Sockets net-library

In the example code below, the servername should be the server DNS name, IP address, or name in the Hosts file:

Set Conn = CreateObject ("ADODB. Connection ")

Set Rs = CreateObject ("ADODB.") Recordset ")

Set Cmd = CreateObject ("Adodb.command")

Conn.Open "PROVIDER=SQLOLEDB; Password=password; Persist Security info=true; User id=username;initial Catalog=dbname;data Source=servername; Network LIBRARY=DBMSSOCN "

Cmd.activeconnection=conn

SQL = "SELECT * FROM TABLE"

Cmd.commandtext = SQL

Set Rs = Cmd.execute