Select Code to Download

sub open_conn {
 use Win32::OLE;
...
 my $connectionString = '"Provider=SQLOLEDB.1;DataSource=iblons3506\oi
+_c1_prd4;InitialCatalog=OMDPortal;UserID=OMDPortal_General;Password=o
+BfuScaTed;';
 $oConn->Open ($connectionString);
}