VB中怎样将外部数据（如:*.txt,excel)导入控件text1中做查询条件！

以下是引用豆豆17373在2012-11-2 17:47:24的发言：

如题。如：*.txt　中有两行内容，第一行“张三”，第二行“李四”　怎样导入到查询窗体text1中，点查询按钮后做2次（或批量）查询，读取到张三查询从ACCESS数据库的个人信息结果输入到显示控件的第一行，读取到李三查询从ACCESS数据库的个人信息结果输入到显示控件的第二行....　要是文本文件中有N行呢？需要自动循环做条件查询。　假设：文本文件为 Text.txt
－－－－－－－－－－－－－－－－－－－－－－－

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Dim str1 As String
Text1 = ""

Dim strTest As String, lstr As String
Dim fname As String, fnum As Integer
Dim arrList(1000) as string
  fname = "......\Text.txt"  'Text.txt的绝对路径
  fnum = FreeFile               '获取文件号
  Open fname For Input As #fnum
  Do Until EOF(fnum)
    Line Input #fnum, lstr
    Text1.Text = Text1 & strTest & lstr & vbCrLf
  Loop
  Close fnum
End Sub
------------------------------------
不对吖。

Dim strTest As String, lstr As String
Dim fname As String, fnum As Integer
Dim arrList(1000) as string
  fname = "......\Text.txt"  'Text.txt的绝对路径
  fnum = FreeFile               '获取文件号
Dim ary() As String
dim As Integer
i = 1
Open "" For Input As #1
Do While Not EOF(1)
ReDim Preserve ary(i)
Line Input #1, b
ary(i) = b
i = i + 1
Loop
For i = 1 To UBound(ary())
Print ary(i)
Next
  Close fnum
End Sub

以下是引用豆豆17373在2012-11-3 15:06:41的发言：

Dim Str() As String '声明一个字符型数组
    Dim I As Long '声明一个长整型变量，下面读文件用到
   
    Open Text1.Text For Input As #1 '打开文件
   
    Do While Not EOF(1) '判断是否到了文件结尾
        ReDim Preserve Str(I) '给数组分配空间,
        
        Line Input #1, Str(I) '读取一行放入数组变量中
        
        I = I + 1 '判断读了多少行，再给数组分配空间
  MsgBox Str(I)　
　 Loop '循环
   
    Close #1 '关闭文件

－－－－－－－－－－－－－－－－－－
红色行下标越界！　求老师回答下吧　不知道哪里错了。