ADO Connection Conversion 1

[TX1135]

I am having trouble converting the following connectionstring and its conversion to vbscript.
Currently it works, allowing a recordset to be populated by a textfile.
However, I need to be able to set the DataSource to look at the current path where this file is running.
It could be on a CDDrive for example.

Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; & DataSource=c:\wmsHTML;Extended & Properties='text;HDR=YES;FMT=DELIMITED'"

Being new to vbscript - Am I heading off on a silly tangent.
Any suggestions would be appreciated.

 

[jonscott8]

Set oFSO = CreateObject("Scripting.FileSystemObject&quot
lcpath= oFSO.GetFile(WScript.ScriptFullName).ParentFolder.Path
Set oFSO = Nothing

Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & lcPath & ";Extended & Properties='text;HDR=YES;FMT=DELIMITED'"
Jon Hawkins