Private Sub cmdUpdate_Click()
   On Error GoTo UpdateErr
   If Trim(txtFields(0).Text) = "" Then
       MsgBox "名称不能为空", vbExclamation + vbOKOnly, "警告"
       txtFields(0).SetFocus
       Exit Sub
End If
显示txtFields子程序或函数未定义，该怎么修改

向我这样的初学者编程应看那些书籍能提升的快一点！求建议

txtFields(0).Text是个文本框控件数组，你没有创建名为txtFields的控件数组

我知道是没有定义文本框数组，但我不知道怎么定义，定义了半天还是不对

属性index=0

我知道怎么回事了，昨天终于整出来了，唉！其实很简单的一个错误我都不好意思说了