use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft ActiveX Data Objects';
my $Conn = Win32::OLE->new('ADODB.Connection'); # creates a connection object
my $RS = Win32::OLE->new('ADODB.Recordset');    # creates a recordset object
$Conn->Open('SLXCONNECTIONSTRING');             # opens the database connection
 
$RS->Open('SELECT * FROM CONTACT WHERE CONTACTID = NULL');  # open an empty recordset
my $Fields = ['CONTACTID', 'FIRSTNAME', 'LASTNAME', 'ETC', '...'];
my $Values = [$ID, 'Ryan', 'Farley', 'etc', '...'];    # use slx_dbids to get new contactid in $ID
 
$RS->AddNew($Fields, $Values);                  # adds a new contact record
 
print "This didn't go well: ", Win32::OLE->LastError(), "\n";
    if (Win32::OLE->LastError());
 
$RS->Close;
$Conn->Close;