'*********************************************************************'Text files Reading'You can use Microsoft Text Driver'*********************************************************************Public Function Read_Text_File() As ADODB.Recordset Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim conn As ADODB.Connection Set conn = New ADODB.Connection conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _ "DBQ=" & App.Path & ";", "", "" rs.Open "select * from [test#txt]", conn, adOpenStatic, _ adLockReadOnly, adCmdText Set Read_Text_File = rs Set rs = Nothing Set conn = NothingEnd Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
