$DSN = "DSN=" . $db . ";UID=" . $ui . ";PWD=" . $pwd;
($n, $err, $errtext) = ::ODBC_Connect($DSN);
@{$self->{'fnames'}} = ::ODBC_Execute($self->{'connection'},$sql);
@r = ::ODBC_Fetch($self->{'connection'});
if ($ENV{OS} eq 'Windows_NT') {
      ::ODBC_Disconnect($self->{'connection'});
}