【加试题】小金想模拟实现邮箱注册及保存过程，他用VB设计了一个模拟程序．功能如下：运行程序时，在文本框Text1中输入待注册的邮件地址（假设输入的地址合理），在文本框Text2和Text3中分别输入两次密码，单击“立即注册”按钮Command1，查找邮件数据库，如邮件地址未在数据库中并且前后两次密码一致，则把邮件地址和密码加入到数据库中，并显示在列表框List1中，其应用程序界面如图所示．

数据信息存放在数据库文件“youxiang.jye.ai”的“use”表中，假定邮箱数不超过100个．请在横线处填上合适的代码．
代码如下：
Dim yxdz（1To 100）As String'定义存储邮箱地址的数组
Dim yxmm（1To 100）As string'定义存储邮箱密码的数组
Dim n As Integer'定义存储邮箱总数的变量
Private Sub Command1_Click（　　）
Dim key As String
key=（Text1．Text）
If Text2．Text=Text3．Text Then
For i=1To n
If

①

①

Then
MsgBox（“邮件地址有重名，请检查！”）
'在消息框中显示邮件地址有重名
Exit For

②

②

Next i
Else
MsgBox（“密码前后不一致，请检查！”）
'在消息框中显示密码前后不一致
End If
'把邮件信息添加到数据库youxiang.jye.ai中的程序代码略
End Sub
Private Sub Form_Load（　　）
Dim conn As New ADODB．Connection
'定义Connection对象实例conn
Dim rs As New ADODB．Recordset
'定义Recordset对象实例rs
conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；
date source=”& App.Path&“\youxiang.jye.ai”
'设置conn的数据库连接字符串
conn.Open
'打开数据库连接
rs.ActiveConnection=conn
'设置rs的ActiveConnection属性，关联conn
rs.Open“SELECT*FROM

③

③

”
'打开记录集，获取数据
n=0
List1．AddItem“邮箱地址”&“”&“邮箱密码”
Do While Not rs.EOF
n=n+1
yxdz（n）=rs.Fields（1）
'邮箱地址字段的序号为1
yxmm（n）=rs.Fields（2）
'邮箱密码字段的序号为2
List1．AddItem yxdz（n）&“”&yxmm（n）
rs.MoveNext
Loop
rs.Close
conn.Close
End Sub
程序中①横线处应填入

key=yxdz（i）

key=yxdz（i）

．
程序中②横线处应填入

End If

End If

．程序中③处应填入

use

use

．