sub open_conn ' Connect to the Onepoint Database for a list of all hosts dim strConnect: strConnect = "Provider=SQLOLEDB.1;Data Source=iblons3506\oi_c1_prd4;Initial Catalog=OMDPortal;User ID=OMDPortal_General;Password=oBfuScaTed;" set oConn = CreateObject("ADODB.Connection") oConn.Open strConnect end sub