Update FROM in CommandText

[excelaudio]

I have a spreadsheet that is used by different users. The spreadsheet defaults to the user's desktop folder when pulling from an Access database. My connections get updated appropriately with the VBA code I inherited, but it doesn't update the user's profile in the following code:

Note: this is the code in one of the 4 connections in the command text box:

SELECT qry_Contracts.Contract, qry_Contracts.LOB,qry_Contracts.State,qry_Contracts.Region,qry_Contracts.Membership,qry_Contracts.DEN
FROM 'c:\users\"username"\desktop\Daily Model Import Folder\Out of Compliance Database.accb'.qry_Contracts qry_Contracts
ORDER BY qry_Contracts.Contract

I need the FROM "username" to automatically read the user's profile instead of it being hard coded.

Thanks for any help you can provide as I have googled everything under the sun and tinkered around with no success.

 

[Derek Brown]

Perhaps the following will help:
Finding the Path to the Desktop (Microsoft Excel)

 

[excelaudio]

Unfortunately, that did not help. Is there any way to have the FROM statement in the CommandText read a specific pathway that can reference a computer username? That would be the ideal solution.

 

[Derek Brown]

Difficult to help with the code without seeing more of yours, but perhaps something like the following?

strSelect = "SELECT qry_Contracts.Contract, qry_Contracts.LOB,qry_Contracts.State,qry_Contracts.Region,qry_Contracts.Membership,qry_Contracts.DEN " & _
"FROM '" & "c:\users\" & Environ("username") & "\desktop\Daily Model Import Folder\Out of Compliance Database.accb'.qry_Contracts qry_Contracts " & _
"ORDER BY qry_Contracts.Contract;"
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open sConnString
Set rs = conn.Execute(strSelect)