Visual Basic 6 read TXT file and store it in different fields again

1/ how do you want the file selected ?  CommonDialog ?

2/ do you need to use a recordset as i find SQL easier.

Option Explicit
Sub GetData(sInputFile)
    Dim ffn As Long, sTemp As String, sData() As Variant
    Dim cnData As New ADODB.Connection, iRa As Integer
    
    'open the connection to the database....
    cnData.Open connstring, usrid, pwd
    
    ffn = FreeFile
    Open sInputFile For Input As #ffn
    Do While Not EOF(ffn)
        Line Input #ffn, sTemp
        sData = Split(sTemp, " ", , vbTextCompare)
        
        sSQl = "INSERT INTO mytable"
        sSQl = sSQl & " ( Field1 , Field2 , Field3 ) "
        sSQl = sSQl & " VALUES( " & sData(0) & ", " & sData(1) & ", " & sData(2) & ")"
        cnData.Execute sSQl, iRa
        
        If iRa <> 1 Then
            MsgBox "Error on insert"
        End If
    Loop
        
    Close #ffn
 
End Sub

Select allOpen in new window

What is the difference between this code below and the one you provided.

dim fso as object 'scripting.filesystemobject
set fso = createobject("scripting.filesystemobject") ' = new scripting.filesystemobject
dim fReader as object 'scripting.TextStream
set fReader = fso.OpenTextStream("C:\TEST\Test.txt") 'optional second argument is ForReading...

dim strLine as string
dim arrfields() as string
while not fReader.AtEndOfStream
  strLine = fReader.ReadLine
  arrFields = split(strLine, " ")
  'here, you can insert the data into the records... I do assume you know how to do that?

wend
freader.Close
set freader = nothing
set fso = nothing