市民卡是由人民政府授權(quán)發(fā)放給市民用于辦理個(gè)人相關(guān)事務(wù)和享受公共服務(wù)的集成電路卡（IC卡），具有信息儲(chǔ)存、身份識(shí)別、電子支付等功能．每位市民都可以擁有一張唯一卡號(hào)的市民卡，卡內(nèi)會(huì)記錄每位市民的姓名、電話、金額等信息．
假設(shè)共有500個(gè)市民，市民的相關(guān)信息都存儲(chǔ)在“information.accdb”的data表中，”xm,ye,kh”字段放市民的姓名，余額，卡號(hào)．查詢程序界面如圖所示．工作人員在文本框Text1中輸入卡號(hào)，單擊“查詢”按鈕，如果找到，就在Label1中顯示卡內(nèi)市民姓名和卡內(nèi)余額；否則顯示“查無(wú)此人”．程序如下，請(qǐng)按要求將程序補(bǔ)充完整．
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+“的卡內(nèi)余額為“+b+“元”
Exit if
else
rs.movenext
end if
loop
if n=500then Label1．caption=“查無(wú)此人”
rs.close
conn.close
set rs=nothing
set conn=nothing
End Sub
（1）程序中①橫線處應(yīng)填入
information.accdb
information.accdb
．
（2）程序中②橫線處應(yīng)填入
b=rs.Fields（“ye”）
b=rs.Fields（“ye”）
．
