此段代码进行修改时会出现问题，哪位高手能帮忙修改一下，谢谢了。




Private Sub Command1_Click()
Dim txtSQL As String
Dim MsgText As String
Dim mrcc As ADODB.Recordset

If Not Testtxt(Text1.Text) Then
MsgBox "！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Exit Sub
End If

If Not Testtxt(Combo1.Text) Then
MsgBox "！", vbOKOnly + vbExclamation, "警告"
Combo1.SetFocus
Exit Sub
End If

If Not Testtxt(Combo2.Text) Then
MsgBox "！", vbOKOnly + vbExclamation, "警告"
Combo2.SetFocus
Exit Sub
End If

If Not Testtxt(Text2.Text) Then
MsgBox "！", vbOKOnly + vbExclamation, "警告"
Text2.SetFocus
Exit Sub
End If

If Not Testtxt(Combo3.Text) Then
MsgBox "！", vbOKOnly + vbExclamation, "警告"
Combo3.SetFocus
Exit Sub
End If

If Not Testtxt(Combo4.Text) Then
MsgBox "！", vbOKOnly + vbExclamation, "警告"
Combo4.SetFocus
Exit Sub
End If

If Not Testtxt(Combo5.Text) Then
MsgBox "！", vbOKOnly + vbExclamation, "警告"
Combo5.SetFocus
Exit Sub
End If

If Not Testtxt(Combo6.Text) Then
MsgBox "！", vbOKOnly + vbExclamation, "警告"
Combo6.SetFocus
Exit Sub
End If

If Not Testtxt(Combo7.Text) Then
MsgBox "！", vbOKOnly + vbExclamation, "警告"
Combo7.SetFocus
Exit Sub
End If

mrc.Delete
txtSQL = "select * from table where 号码 = '" & Trim(Text1.Text) & "'"
Set mrcc = ExecuteSQL(txtSQL, MsgText)

mrcc.Close
mrc.AddNew
mrc.Fields(0) = Trim(Text1.Text)
mrc.Fields(1) = Trim(Combo1.Text)
mrc.Fields(2) = Trim(Combo2.Text)
mrc.Fields(3) = Trim(Text2.Text)
mrc.Fields(4) = Trim(Combo3.Text)
mrc.Fields(5) = Trim(Combo4.Text)
mrc.Fields(6) = Trim(Combo5.Text)
mrc.Fields(7) = Trim(Combo6.Text)
mrc.Fields(8) = Trim(Combo7.Text)
mrc.Update
MsgBox "修改成功！", vbOKOnly + vbExclamation, "特别提醒"