先生们晚上好，我能读写mdb文件的代码，现在想修改成读写txt文件的代码，修改了好多次，总是没成功，请教您们如何修改，谢谢
原读写mdb文件代码如下，想修改成读写txt文件
Dim a(1 To 23, 1 To 13) As Currency

Private Sub Form_Click()
 '-----------------------读"原方阵.mdb"文件，现在想改成读取“原方阵.txt”文件
     Dim Bcn1 As New ADODB.Connection
    Dim Brs1 As New ADODB.Recordset
    Bcn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\原方阵.mdb"
    Brs1.Open "b1", Bcn1, 1, 3
  For i = 1 To 23
     For j = 1 To 13
      a(i, j) = Brs1.Fields("列" & j).Value
     Next j
      Brs1.MoveNext
  Next i
'
'------------------------写入"搜索结果表.mdb"文件，现在想改成写入到“搜索结果表.txt”
Dim Conn As New ADODB.Connection
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\搜索结果表.mdb"
    Conn.Execute "delete * from B1"
Conn.Close
Dim FF1cn1 As New ADODB.Connection
Dim FF1rs1 As New ADODB.Recordset
    FF1cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\搜索结果表.mdb"
    FF1rs1.Open "b1", FF1cn1, 1, 3
    FF1rs1.AddNew
    FF1rs1.AddNew
      Me.WindowState = 0
   '=========================================写入
For i = 1 To 23
 For j = 1 To 13
 FF1rs1("列" & j) = a(i, j)
 Next j
 FF1rs1.Update
 FF1rs1.AddNew
Next i
'----------------------写入文件结束
End Sub

读写mdb文件与读写txt文件是完全不同的操作方法，mdb是数据库文件，使用ADO对象操作，txt是文本文件，用 Open 操作的。

谢谢先生，可否在我的代码上帮我修改成能读写txt文件的，谢谢先生了

抽时间给你做一下，不知道是不是符合你的意图。

大概做了一下，如果需要请私信我。

[此贴子已经被作者于2020-5-13 21:04编辑过]

额外说一下，
其实TXT文件经过设计，也是可以使用ADO做存取TXT数据，
等于把TXT当成数据库来用，我有做过喔。

所以最简易的数据库，用TXT就行了，不用ACCESS喔。
查找数据就类似找EXCEL数据一样。

[此贴子已经被作者于2020-5-15 10:32编辑过]

要看读者到底要达到什么目的。
早期很多网站为了防止别人下载到后台数据库，有直接将mdb文件改名为txt文件，只需要改后缀名即可，connection连接字串同access。
如果楼主非要把纯文本当做数据库访问，好像也行，需要配置下Schema.ini文件，数据字段、属性都在这个配置文件中，jet引擎会自动读取并根据sql访问指定文本文件。看这个链接，希望对楼主有帮助：
https://blog.