市民卡是由人民政府授權發(fā)放給市民用于辦理個人相關事務和享受公共服務的集成電路卡（IC卡），具有信息儲存、身份識別、電子支付等功能．每位市民都可以擁有一張唯一卡號的市民卡，卡內會記錄每位市民的姓名、電話、金額等信息．
假設共有500個市民，市民的相關信息都存儲在“information.jye.ai”的data表中，”xm,ye,kh”字段放市民的姓名，余額，卡號．查詢程序界面如圖所示．工作人員在文本框Text1中輸入卡號，單擊“查詢”按鈕，如果找到，就在Label1中顯示卡內市民姓名和卡內余額；否則顯示“查無此人”．程序如下，請按要求將程序補充完整．
Private Sub command1_click （　　）
Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
Dim strSQL As String
Dim a,b,c as string
Dim n as integer
conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“+App.Path+“\       ①”
conn.Open
strSQL=“select*from data”
Set rs.ActiveConnection=conn
rs.Open strSQL
Label1．Caption=“”
c=val（text1．text）
n=0
rs.movefirst
Do while not rs.EOF
n=n+1
a=rs.Fields（“xm”）
          ②
If c=rs.Fields（“kh”） then
Label1．caption=a+“的卡內余額為“+b+“元”
Exit if
else
rs.movenext
end if
loop
if n=500then Label1．caption=“查無此人”
rs.close
conn.close
set rs=nothing
set conn=nothing
End Sub
（1）程序中①橫線處應填入

information.jye.ai

information.jye.ai

．
（2）程序中②橫線處應填入

b=rs.Fields（“ye”）

b=rs.Fields（“ye”）

．