my($DSN) = "Lake Alpine";
if (!($db = new Win32::ODBC($DSN))){
   die "Error connecting: " . Win32::ODBC::Error() . "\n";

##</code><code>##

($SqlStatement) = "SELECT * FROM Mailing List";
if ( $db->Sql($SqlStatement)){
{
print "error submitting SQL statment " . $db->Error().  "\n";
}