老师，我想实现给 项目分项 打钩后，在项目号后加上1、2、3...

下面一段代码有什么错误吗？

 bh = dr("客户简称") & "-" & dr("车型名称") & "-" & Format(d,"yyMMdd") \'生成项目号前缀
    If e.Form.Controls("CheckBox2").checked = False Then
        dr("项目") = bh
    Else                     \'项目分项打钩
        If dr("项目").StartsWith(bh) = False \'如果项目前缀不符
            Dim max2 As String
            Dim idx2 As Integer
            max2 = DataTables("项目").Compute("Max2(项目)","项目 like \'" & bh & "%\'") \'取得项目号前缀
            If max2 > "" Then \'如果存在最大项目号
                idx2 = CInt(max2.Substring(bh.Length,1)) + 1 \'获得最大项目号的最后一位顺序号,并加1
            Else
                idx2 = 1 \'顺序号等于1
            End If
            dr("项目") = bh & Format(idx2,"0")
        End If
    End If