I am developing a VB application using ActiveX EXE, everthing is okay and well functioning, but don't know what happened yester day my program has an error that I can't solve it. the error message is as below:

run_time error-2147217833 (80040e57)
[microsoft][ODBC SQL Server Driver][SQL server]
String or binary Data would be truncated.

when I debug they highlighted the code as below:

oConn.BeginTrans
FundCode = txtFundCtgy & "-" & txtFundCode & "-"

For I = 1 To MSFlex.Rows - 2

amt = 0 - MSFlex.TextMatrix(I, 5)
sqltext = "INSERT INTO Acc_GL (Acc_Code,Description,Amount,Ref_1,Ref_2,Acc_Date,KeyIn_Date,KeyIn_By)" & _
"VALUES ('" & FundCode + MSFlex.TextMatrix(I, 0) & "','" & MSFlex.TextMatrix(I, 3) & "','" & amt & "','" & MSFlex.TextMatrix(I, 1) & "','" & MSFlex.TextMatrix(I, 2) & "','" & DTAcc.Value & "','" & SysDate & "','" & strUserID & "')"

oConn.Execute sqltext
UpdateTB DTAcc.Value, FundCode + MSFlex.TextMatrix(I, 0), amt

Next
oConn.CommitTrans


Please help me, because my program have been delay for 3 days already.