我用一个程序,如下,想转excel表到sql中
While j < List3.ListCount
    If List3.List(j) <> "" Then
        inser = inser & "[" & List2.List(j) & "],"
  
        If List5.List(j) = "text" Then
       
        sdata = sdata & "'" & adore.Fields(Val(List4.List(j))) & "',"
        End If
j = j + 1
Wend
 inser = Left(inser, Len(inser) - 1)
 sdata = Left(sdata, Len(sdata) - 1)
 
 
 add = "insert into [" & Trim(Combo1.Text) & "] (" & inser & ") values ( " & sdata & ")"
原数据表中有85A,90B或1,2,3,4这些值(这一列是文本)。相转到SQL表中的char形
结果发现如果这一列如果有了85A等,1,2,3,4这些值就为空了,如果开始插入的是
1,2,3,4这些值,85A等这些值就为空了。怎么回事