sub sqlite_FetchRow
{
	my($dbh,$str)=@_;
	$str="123";
	return 1;
}