实时错误 ‘-2147467295 （80004005）‘：

Private Sub CmdSave_Click()
  If Len(Text1(0)) > 10 Then
    MsgBox "班组号超长！"
    Exit Sub
  End If
  If blnAddBZ = True Then
    rs1.Open "select * from 班组表", cnn, adOpenKeyset, adLockOptimistic
    rs1.AddNew
    For i = 0 To 10
      rs1.Fields(i) = Text1(i)
    Next i
    rs1.Update
    rs1.Close
  Else
    rs1.Open "select * from 班组表 where 班组号='" + Text1(0) + "'", cnn, adOpenKeyset, adLockOptimistic
    If rs1.RecordCount > 0 Then
    For i = 0 To 10
      rs1.Fields(i) = Text1(i)
    Next i
    rs1.Update
    End If
    rs1.Close
    main_bzgl_cx.Adodc1.Refresh
  End If
  Unload Me
End Sub
实时错误 ‘-2147467295 （80004005）‘：
【Microsoft】[ODBC SQL Server Driver][SQL Server]第一行：
’/'附近有语法错误

各位帮忙看看     谢谢啊！ --------------------编程问答-------------------- 怎么都喜欢用这种方式
用个update语句多好啊 --------------------编程问答-------------------- 应该是数据类型不对,你找下数据类型 --------------------编程问答-------------------- 数据类型的问题，不要用这样的方式。

补充：VB ,  基础类