VB求助

Dim cn As New ADODB.ConnectionIf Text1.Text = "" Then Label12.Caption = "账号有误!请查看注册详细规则"
If Text2.Text = "" Then Label13.Caption = "密码有误!请查看注册详细规则"
If Text3.Text = "" Then Label14.Caption = "请重复上面的密码!"
If Text4.Text = "" Then Label15.Caption = "昵称不能为空"
If Text2.Text <> Text3.Text Then Label14.Caption = "两次输入的密码不一样!"
这里加什么可以做到如果上面的条件全部达到 则进行下面的指令。
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\A.mdb"cn.Execute "insert into A1 (MC,name,MM) values ('" & Text1.Text & "','" & Text4.Text & "','" & Text2.Text & "')"cn.CloseMsgBox "注册成功！"Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""
End Sub