sub GetArray { my($this, $stmt) = @_;
    unless($this->{Cnn}) {
        Win32::MsgBox('Keine Verbindung!');
        return undef;
    }
    my @retArr;
    my $rst = $this->{Cnn}->Execute($stmt);
    unless($rst->EOF and $rst->BOF) {

        $rst->MoveFirst;

        while(not $rst->EOF) {

            push(@retArr, [$rst->Fields(0)->{value}]);
            
            for my $_sp (0..$rst->Fields->{count}) {
                
                push(@{$retArr[$_sp]}, $rst->Fields($_sp)->{value});
            }
            $rst->MoveNext;
        }
    }
    return \@retArr;
}