Проблема при открытии текстового файла-базы - VB

Формулировка задачи:

                    Листинг программы
                
Dim cn
Dim rs As New ADODB.Recordset
Set cn = CreateObject('ADODB.Connection')
 
cn.Open 'Driver={Microsoft Text Driver (*.txt; *.csv)};' & 'Dbq=d:12345678  oday;' & 'Extensions=log,txt;' & 'Persist Security Info=False;'
 
rs.ActiveConnection = cn
rs.Open 'SELECT * FROM 123.log', cn, adOpenStatic, adLockReadOnly

открыть файл D;12345678 oday123.log не удается. [Microsoft][ODBC Text Driver] Cann't update. Database or object is read-only. при этом если переименовать файл в 123.txt он прекрасно откроется. без всяких вопросов. в чем проблема?

Решение задачи: «Проблема при открытии текстового файла-базы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ap As String
Dim sss As String
 
ap = App.Path
If Not Right$(ap, 1) = ' ' Then ap = ap + ' '
 
Set cn = New ADODB.Connection
cn.Open 'Driver={Microsoft Text Driver (*.txt; *.csv)};' & 'Dbq=' & ap & ';Extensions=log,txt;' & 'Persist Security Info=False;'
 
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
Set rs.ActiveConnection = cn
 
If Dir(ap & '123.txt') <> '' Then
    Kill ap & '123.txt'
End If
VBA.FileCopy ap & '123.log', ap & '123.txt'
 
sss = '[123.txt]' & vbCrLf & _
'ColNameHeader = False' & vbCrLf & _
'Format = TabDelimited' & vbCrLf & _
'CharacterSet = ANSI' & vbCrLf & _
'MaxScanRows = 0'
 
Open ap & 'SCHEMA.INI' For Output As #1
Print #1, sss
Close #1
 
'rs.Open 'SELECT * FROM 123.log;', cn, adOpenStatic, adLockReadOnly, adCmdText
rs.Open 'SELECT * FROM [123#txt]', , adOpenStatic, adLockReadOnly, adCmdText
 
Set Me.DataGrid1.DataSource = rs
 
End Sub