use strict;
use Win32::OLE;

my $Conn;
my $RS;


$Conn = Win32::OLE->new("ADODB.Connection","Close") or die "ADO New Connection failed $!";
$RS = Win32::OLE->new("ADODB.Recordset") or die "ADO New Recordset failed $!";
$Conn->Open("DSN=ENG_DB;UID=enguser;PWD=yt12xcj") or die "ADO Connection open failed $!";
$RS->Close;
$Conn->Close;