100分帮忙看一下小问题！！！！是关于读文本文件内容的！！！在线等！立苛给分！

Question

用文件对象啊FileSystemControl操作就好了啊
再加上一个TextStream读取文件第一行就好了啊。

Answer 1

Private Sub Command1_Click()
Dim ret   As String
Dim ret0  as String
Dim cn   As ADODB.Connection
Dim rs   As ADODB.Recordset
 
Set cn = New Connection
Set rs = New Recordset
cn.CursorLocation = adUseClient
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\a.mdb;Persist Security Info=False"
cn.Open
rs.Open "select  *  from  abcd  ", cn, adOpenStatic, adLockBatchOptimistic
 
ret = Dir("d:\b\*.txt")
 Do Until ret = ""
   rs.AddNew
   rs!文件名 = ret
   Open "d:\b\" & ret For Input As #1
   Line Input #1, ret0
   Close #1
   rs!第一行 = ret0
   ret = Dir()
Looprs.UpdateBatch
rs.Close
Set rs = Nothing
cn.Close
Set cn = NothingEnd Sub