Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
' Dim cmd1 As New ADODB.Command
Dim cmd2 As New ADODB.Command
Dim str1 As String, str2() As String
Call contooledb
'Set cmd1.ActiveConnection = sqlcon
'cmd1.CommandText = "Create Table txt(id char(10),nr char(10))"
'cmd1.Execute
Set cmd2.ActiveConnection = sqlcon
cmd2.CommandText = "select * from txt"
Set rs = cmd2.Execute
Open "D:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, str1
rs.AddNew
str2 = Split(str1, vbTab)
'For i = 0 To UBound(str2)
rs(0) = str2(0)
rs(1) = str2(1)
'Next i
rs.Update
Loop
rs.Close
sqlcon.Close

End Sub

哪不对？？？？？？？

修改后的代码，你试试：
Dim str As String
Dim rs As New ADODB.Recordset
Dim str2(1) As String

str = "select * from 表"
rs.CursorLocation = adUseClient
rs.Open str, conn, adOpenDynamic, adLockOptimistic

Open "D:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, str1
rs.AddNew
str2 = Split(str1, vbTab)
rs(0).Value = str2(0)
rs(1).Value = str2(1)
rs.Update
Loop
rs.Close

[此贴子已经被作者于2007-9-19 16:48:47编辑过]

我先试试
先谢谢了

如果有问题，你再试试这个。
Private Sub Command3_Click()
Dim str As String
Dim rs As New ADODB.Recordset
Dim str2(1) As String

str = "select * from 表"
rs.CursorLocation = adUseClient
rs.Open str, conn, adOpenDynamic, adLockOptimistic

Open "D:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, str1
rs.AddNew
str2 = Split(str1, vbTab)
rs.Fields(0).Value = str2(0)
rs.Fields(1).Value = str2(1)
rs.Update
Loop
rs.Close

End Sub

提示错误啊
不能给数组赋值啊　

我有一个文本文件
内容是：
１ aa
2 bb
3 cc
如何将他们读入txt表中
txt表有两个字段id和nr

str2 = Split(str1, vbTab)
改为：
str2(0) = Mid$(str, 1, 1)
str2(1) = Mid$(str, 9, 2)

好象还不能用

什么问题？？