帮帮我吧？？？

Question

Private Sub ComAdd_Click()     '添加
Dim bh As Integer
'自动创建商品编号
rs1.Open "select * from spinf order by 商品编号", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
    If Not rs1.EOF Then rs1.MoveLast
    If rs1.Fields("商品编号") <> "" Then
       bh = Right(Trim(rs1.Fields("商品编号")), 7) + 1
       Text3(0).Text = "s" & Format(bh, "0000000")
    End If
  Else
    Text3(0).Text = "s0000001"
 End If
 rs1.Close
 '清空text3中的内容
 For i = 1 To 8
   Text3(i).Enabled = True
   Text3(i).Text = ""
 Next i
 '设置控件状态
 comsave.Enabled = True: comesc.Enabled = True: comadd.Enabled = False
 commodify.Enabled = False: comdelete.Enabled = False
 For i = 0 To 3
   CmdMD(i).Enabled = False
 Next i
 SSTab1.Tab = 0
 Text3(2).SetFocus
 
 
End Sub为什么执行到text(3)2.setfocus的时候就显示“实时错误5，无效的过程调用或参数"

Answer 1

努力，加油！顶一下。。嘿嘿