File Path VisualBasic Script

Sub TextExample()
    Dim rs As ADODB.Recordset
    Dim cn As ADODB.Connection
    Dim sCS As String
    Dim sSQL As String
    Set cn = New ADODB.Connection
    sCS = "DefaultDir=C:\;"
    sCS = sCS & "Driver={Microsoft Text Driver (*.txt; *.csv)};"
    sCS = sCS & "DriverId=27;"
    cn.ConnectionString = sCS
    cn.Open
    Debug.Print cn.ConnectionString
    On Error Resume Next
    cn.Execute "CREATE TABLE [newfile.txt] (FirstName TEXT, LastName TEXT);"
    If Err.Number <> 0 And Err.Number <> vbObjectError + 3604 Then
        Debug.Print Err.Number & ": " & Err.Description
        Exit Sub
    End If
    sSQL = "INSERT INTO [newfile.txt] (FirstName, LastName) Values ('steve', 'roman');"
    cn.Execute sSQL
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * FROM NewFile.txt", cn, adOpenDynamic, adLockOptimistic
    Debug.Print rs.Supports(adAddNew)
    Debug.Print rs.Supports(adBookmark)
    Debug.Print rs.Supports(adDelete)
    Debug.Print rs.Supports(adFind)
    Debug.Print rs.Supports(adUpdate)
    Debug.Print rs.Supports(adMovePrevious)
    
    rs.Close
    cn.Close
End Sub