实时错误 ‘-2147467259 （80004005）’

Question

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
实时错误 ‘-2147467259 （80004005）’：
[Microsoft][ODBC SQL Server Driver][SQL Server]第一行：'/'附近有语法错误

Answer 1

各位高手帮帮！我急啊！！马上答辩了