杭州市民卡是由杭州市人民政府授权发放给市民用于办理个人相关事务和享受公共服务的集成电路卡（IC卡），具有信息储存、身份识别、电子支付等功能。每位市民卡的卡号是唯一的，卡内会记录每位市民的姓名、住址、金额等信息。
假设共有1000个市民，市民的相关信息都存储在“information.jye.ai”的data表中，查询程序界面如图所示。工作人员在文本框Text1中输入卡号，单击“开始查询”按钮，如果找到，就在Label1中显示卡内市民姓名和卡内余额；否则显示“查无此人”。请按要求将下列程序补充完整。

Private Sub command1_click （　　）
Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
Dim strSQL As String
Dim a,b as string‘分别定义姓名、余额
Dim n as integer
conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“+App.Path+“\information.jye.ai“'打开到数据库的链接
conn.Open
strSQL=“select xh,xm from data where'卡号=&（Text1．Text） &'“'设置查询的SQL语句
Set rs.ActiveConnection=conn'设置rs的ActiveConnection属性，指定与其关联的数据库链接
rs.Open strSQL'打开记录集，将从表information中读取的结果保存到记录集rs中
Label1．Caption=““
n=0
Do while not rs.EOF

n=n+1

n=n+1

①
a=rs.Fields（“姓名“）
b=rs.Fields（“余额“）
rs.movenext
loop
rs.Close
conn.close
set rs=nothing
set conn=nothing

Label1．caption=a+“卡内余额为“+b+“元“

Label1．caption=a+“卡内余额为“+b+“元“

②
if n=0then Label1．caption=“查无此人“
End Sub
（1）程序中①横线处应填入

n=n+1

n=n+1

。
（2）程序中②横线处应填入

Label1．caption=a+“卡内余额为“+b+“元“

Label1．caption=a+“卡内余额为“+b+“元“

。