sub PopList
{
    my $cboList    = shift(@_);
    my $sCommand   = shift(@_);
    xqt $sCommand;
    while (my @ary = $sth->fetchrow_array ())
    {
        $cboList->insert('end', @ary);
    }
}

sub PopAgent
{
    my $cboList    = shift(@_);
    PopList $cboList, "SELECT * FROM agent ORDER BY agent"
}