请问！错误6 “溢出”是什么错误

Question

我用写好的程序安装在别一台机器上，用的是别一个MSSQL（下面称MSSQL2）数据库 
两SQL数据库的结构是一样的，只是MSSQL2的记录比较多，开始我也以为是记录多的原因 
造成溢出，我就把MSSQL2的数据删完了！果然不溢出了，但输入一条新记录后，问题又出来了。请问为什么是这样，怎么解决！ 

Answer 1

Private Sub Form_Load()
    Dim i As Long
    Set myForm = New CFForm
    strStats = ""
   
    strSQL = "SELECT CompanyName, Linkman, TelOrFax, ShowNumber, Re,id From LocaleInfoVIEW Where ZPLB_ID = " & mTitle.ID & strStats & " order by id"
    strSQL1 = "SELECT count(*) From LocaleInfoVIEW Where ZPLB_ID = " & mTitle.ID & strStats    
    Option1(0).Value = True
    
    ButtonNoneState '工具栏的状态
    Tool1ButtonNoneState
    
    blModify = False
    blCreate = False
    
    blGZModify = False
    blGZCreate = False
    pinBool = False
    
    Set myForm.FullForm = DWForm
    Set myForm.LBox = Picture1
    Set myForm.RBox = Picture3
    Set myForm.Splitter = Picture2
    myForm.UpHeight = 1200
    myForm.DownHeight = 600
    myForm.Form_Resize
    
    Label3.Caption = mTitle.Date
    Label1(0).Caption = mTitle.Title & "入场单位名单"
    
    DisPlayHead '显示表头
    GZDisPlayHead      '显示工种表头    mLocaleInfoID = ShowListData(strSQL, strSQL1, MSFlexGrid1, LocaleInfoID)
    ShowFormData MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1), MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 4)
    
    If mLocaleInfoID = 1 Then
        LID = LocaleInfoID(MSFlexGrid1.Rows - MSFlexGrid1.Row - 2)
        strSQL2 = "SELECT TypeOfWork,QuotaOfPeople, Need, LocaleInfo_ID, ZPLB_ID, ID From TypeOfWorkView WHERE (ZPLB_ID = " & mTitle.ID & ") AND (LocaleInfo_ID =" & LID & " )"
        strSQL21 = "SELECT count(*) From TypeOfWorkVIEW  WHERE (ZPLB_ID = " & mTitle.ID & ") AND (LocaleInfo_ID =" & LID & " )"        GZDisPlayHead      '显示工种表头
        ShowListData strSQL2, strSQL21, MSFlexGrid2, TypeOfWorkID
        DisplayTypeOfWork 1
    End If
    
    
End Sub