市民卡是由人民政府授权发放给市民用于办理个人相关事务和享受公共服务的集成电路卡（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”）

．