Connection String

I have been trying to get a connection string to work with an OLEDB provider. I beleive the format of the string I was given is not correct. Here is a copy of the code. The string starts with quation marks but does not end with same. If I add the quotation marks I get an error. I have checked the string and it does not show the password included.

Dim rstSource As Object
Dim rstTarget As Recordset
Dim Datapath As String
Dim DataSelector As String
Dim Connection As Object



ClearCustomers (True)

Set rstTarget = CurrentDb.OpenRecordset("Profile", dbOpenDynaset)



Datapath = "C:SOFTRAKOLWINSamdataDATA"
DataSelector = "FTC"
AdagioUserID = "SYS"
AdagioPassword = "SYS"



Set Connection = CreateObject("adodb.connection")
Connection.Provider = "ADSDB.Provider"
Connection.ConnectionString = "Password=" & AdagioPassword & ";User ID=" & AdagioUserID & ";Data Source=" & Datapath$ & "" & "DATA." & DataSelector$
Connection.Open
Debug.Print Connection.ConnectionString
Set rstSource = Connection.Execute("@R65ACST")


Debug result

Provider=ADSDB.Provider.1;Persist Security Info=False;User ID=SYS;Data Source=C:SOFTRAKOLWINSamdataDATADATA.FTC;Mode =0