想把txt文件保存到数据库中
可是程序运行到    rs(7).Value = Trim(fdArray(7))运行不下去提示：

全部程序如下：
Private Sub Command2_Click()
   Dim intFreeNumber As Integer
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim rsArray() As String, fdArray() As String
    Dim i As Long, j As Long
    Dim strTemp As String
    Dim strfile As String
   
    intFreeNumber = FreeFile()
    Open App.Path & "\aa.txt" For Binary As #intFreeNumber
    Do While Not EOF(intFreeNumber)
      strTemp = Input(intFreeNumber, #intFreeNumber)
      strfile = strfile & strTemp
    Loop
    Close #intFreeNumber
    Set conn = New ADODB.Connection
   
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
    conn.Open
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open "select *from [MCOMSITE]", conn, 1, 3


    rsArray = Split(strfile, vbCrLf)
    For i = 1 To UBound(rsArray)
        fdArray = Split(rsArray(i), vbTab)
        For j = 1 To 20
            rs.AddNew
            rs(0).Value = Trim(fdArray(0))
            rs(1).Value = Trim(fdArray(1))
            rs(2).Value = Trim(fdArray(2))
            rs(3).Value = Trim(fdArray(3))
            rs(4).Value = Trim(fdArray(4))
            rs(5).Value = Trim(fdArray(5))
            rs(6).Value = Trim(fdArray(6))
            rs(7).Value = Trim(fdArray(7))
            rs(8).Value = Trim(fdArray(8))
            rs(9).Value = Trim(fdArray(9))
            rs(10).Value = Trim(fdArray(10))
            rs(11).Value = Trim(fdArray(11))
            rs(12).Value = Trim(fdArray(12))
            rs(13).Value = Trim(fdArray(13))
            rs(14).Value = Trim(fdArray(14))
            rs(15).Value = Trim(fdArray(15))
            rs(16).Value = Trim(fdArray(16))
            rs(17).Value = Trim(fdArray(17))
            rs(18).Value = Trim(fdArray(18))
            rs(19).Value = Trim(fdArray(19))
            rs(20).Value = Trim(fdArray(20))
        Next j
    Next i
    rs.UpdateBatch
    Set rs = Nothing
    Set conn = Nothing
End Sub

内容附件：

如果rs(7).name=GROUND_HEIGHT，是数字类型，而你此时的值为"GSM900"，我就保留GSM900，该怎么办？

rs(10)为数字类型，但赋值的是个空字符串，就是想保留空字符串该怎么办？、

即想让数据库中数据和txt文件用excel打开一致不能该表txt文件中的内容.希望您你呢该点提示？万分感激

字段类型和值类型不匹配。rs(7).name=GROUND_HEIGHT，是数字类型，而你此时的值为"GSM900"，是一个字符类型的值。

又看看一下rs(7).name=GROUND_HEIGHT是字符型呀：如图

rs(7).name=GROUND_HEIGHT
是字符型，如图：

请教一下，数据类型怎么看呀？
这个数据库是从别人那拷贝的》
谢谢

谢谢！刚接触VB一些概念还是不清楚！问题解决了