ارتباط با دیتابیس

سلام خسته نباشید
من کد های ارتباط با دیتابیس آنلاین رو نوشتم و اطلاعاتمم می خونه اما هر بار اطلاعاتو می خونه ارر خطای ارتباط با دیتابیسم میده
میشه بررسی کنید مشکلش چیه؟

	If job1.Success=True Then
		If job1.JobName="ht2" Then
			ProgressDialogHide
			jp.Initialize(job1.GetString)
'			jp.Initialize(Main.ht2.GetString)
			Main.list=jp.NextArray

			For i=0 To Main.list.Size-1
				p.Initialize("p")
				slvnobat.Panel.AddView(p,0%x,top,100%x,45%y)
				p.LoadLayout("lnobat_mpinfo")
				p.Tag=i
				top=top+7%y+0%x
			
				Main.map_title=Main.list.Get(i)
				Dim plusname As String
				plusname=Main.map_title.Get("famili")&" "&Main.map_title.Get("nam")

				lblmp_nam.Text=plusname
				lblnobat.Text=Main.map_title.Get("id")
				lblvasete1.Text=Main.map_title.Get("vasete")

			Next
			slvnobat.Panel.Height=top
		Else
			ToastMessageShow("خطا در برقراری ارتباط با سرور",False)
		End If
	End If
	Main.ht2.Release

<?php
	//$conn->set_charset("utf8");
	$db = new PDO ('mysql:host=localhost;dbname=***;charset=utf8','***','***');
	//mysql_query('SET CHARACTER SET utf8');
	

	$st = $db->query('SELECT id,famili,nam,vasete FROM tblnobat');
	$a = array();
	$cnt=1;
	

	while ($row = $st->fetch()){	
		
		array_push($a,array('id'=>$cnt,'famili'=>$row['famili'],'nam'=>$row['nam'],'vasete'=>$row['vasete']));


		$cnt++;
	}
//	var_dump($a);
	echo json_encode($a);
	$db=null;

?>