Getting error as Could not find installable ISAM when try to open csv file

I checked the path for the below registry entries and seems to be provided correct.
Msexcl40.dll
Msexch40.dll
Msrd2x40.dll
Msrd3x40.dll
Msltus40.dll
Mspbde40.dll
Mstext40.dll
Msxbde40.dll

And also i found the mstext40.dll (text driver file) as well and it has been initialized. Yet i'm facing the same issue again.

Here is my code that i'm tried to run.


Dim Cn1 As ADODB.Connection
Dim rRs1, rRs2 As ADODB.Recordset
Dim sQuery_policy1, strFilename1 As String
Dim Conn1 As String
Dim Res As Variant
strFilename1 = "C:\Users\dineshkumarn\Documents"
On Error GoTo DBError:
Application.DisplayAlerts = False
Sheet2.Name = "Compared Result"

j = 1
l = 1
con = 2

Conn1 = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = D:\\Sample;""Extended Properties = ""text;HDR=Yes;FMT = Delimited(;)"";Persist Security Info = False"
Set Cn1 = New ADODB.Connection
Set rRs1 = New ADODB.Recordset
Cn1.ConnectionString = Conn1
Cn1.CursorLocation = adUseClient
Cn1.Open (Conn1)
sQuery_policy1 = Sheet1.TextBox1.Value
Set rRs1 = Cn1.Execute(Trim(sQuery_policy1))


For i = 0 To rRs1.Fields.Count - 1
Sheet2.Cells(1, j).Value = rRs1.Fields(i).Name
j = j + 1
Next i

While Not rRs1.EOF
For k = 0 To rRs1.Fields.Count - 1
Sheet2.Cells(con, 1).Value = rRs1.Fields(k).Value
l = l + 1
Next k
con = con + 1
l = 1
Wend

rRs1.Close
Cn1.Close

DBError:
If Err.Number <> 0 Then
MsgBox Err.Number & " : " & Err.Description
End If