#! /usr/bin/perl

use strict; 
use warnings; 
use DBI ':sql_types'; 

my $dbh = DBI->connect('DBI:ODBC:driver=Microsoft Access-Treiber (*.mdb);dbq=db1.mdb',user,pass); 

my $col = 'Testcol'; 
my $statement = "INSERT INTO table (`$col`) VALUES(?)"; 

my $coltype = get_type($col,$dbh); 
$coltype = 'SQL_'.$coltype; 

my $sth = $dbh->prepare($statement); 

for(2..1000){ 
   my $var = <STDIN>; 
   chomp $var; 
   $sth->bind_param(1,$var,$coltype); 
   $sth->execute($var) or die $dbh->errstr(); 
} 

sub get_type{ 
   my ($name,$dbh) = @_; 
   my ($sthcolinfo) = $dbh->column_info(undef,undef,undef,$name); 
   my $hashref = $sthcolinfo->fetchrow_hashref(); 
   return $hashref->{TYPE_NAME}; 
}

DBI::st=HASH(0x3e9c2dc)->bind_param(...): attribute parameter 'SQL_INTEGER' is not a hash ref at C:/access.pl line 19