use Win32::OLE;
use Win32::OLE::Const 'Microsoft ActiveX Data Objects';
my $conn = Win32::OLE->new('ADODB.Connection');
$conn->open('FooConn');
$sqlString = "INSERT INTO Foo(Bar, Baz) VALUES (\'$Bar\', \'$Baz\');";
$conn->execute($sqlString);
print "\n\n\tPfft: ", Win32::OLE->LastError(), "\n" if (Win32::OLE->LastError());
exit if (Win32::OLE->LastError());