sub open_conn { use Win32::OLE; use Win32::OLE::Const 'Microsoft ActiveX Data Objects'; $oConn = Win32::OLE->new('ADODB.Connection'); # creates a connection object my $connectionString = '"Provider=SQLOLEDB.1;DataSource=iblons3506\oi_c1_prd4;InitialCatalog=OMDPortal;UserID=OMDPortal_General;Password=oBfuScaTed;'; $oConn->Open ($connectionString); }