求大神指点 小弟想要在窗体中的TEXT1中输入EXCEL文件中的 "产品编码" 然后点击COMMAND1   在EXCEL文件中查找到相应数据,对应填在TEXT控件中!该怎么写? 谢谢!

Private Sub Command1_Click()
Dim xlApp As New excel.Application  '需引用microsoft Excel 12.0 0bject Library
Dim xlBook As New excel.Workbook
Dim xlSheet As New excel.Worksheet
Dim ends
 On Error Resume Next
 Set xlBook = xlApp.Workbooks.Open("f:/dgResult.XLS", ReadOnly:=True) '打开文件并以只读形式打开'
' xlApp.Visible = False
 Set xlSheet = xlBook.Sheets("dgResult")' 获得该工作簿的“sheet1”表
 xlSheet.Select
     ends = xlSheet.Columns(2).Find("*", SearchDirection:=xlPrevious).Row
 For Each Rng In xlSheet.Range("A2:A" & ends)
    m = m + 1
    If Rng Like Text1.Text Then
    k = k + 1
Text2.Text = xlSheet.Range("B" & m + 1) '名称'
Text3.Text = xlSheet.Range("C" & m + 1) '单位'
Text4.Text = xlSheet.Range("D" & m + 1)
Text5.Text = xlSheet.Range("E" & m + 1)
 End If
 Next
 Set xlSheet = Nothing
 Set xlBook = Nothing
 xlApp.Quit
 Set xlApp = Nothing
 End Sub

自己研究研究,用这些代码实现了,可是每次都会重新要打开一次EXCEL文件,还得再弄弄看怎么才能获省点资源,不知道用VB怎么判断固定的EXCEL文件是不是处于打开状态,如果是打开的,不用再重复打开,关闭,这样应该会快很多,呵呵,新手菜鸟一个,大师们别喷,望请帮助!