(this is a follow up question to: http://www.experts-exchange.com/Microsoft/Development/MS_Access/Q_28232414.html
And once again sorry/apologies if this is not the correct method of posting questions on the EE board. Sorry!!! if i have borken any rules.
I am having a nightmare trying to establish a connection to ms access via sql on a odbcad32.exc...
i have tried using the following vba to change the connection string and no luck for two days...
Public Function GetQueryLinks()
On Error GoTo Err_GetQueryLinks
'Dim StrConn As ADODB.Connection
'Set StrConn = New ADODB.Connection
Dim qdf As DAO.QueryDef
Dim StrConn As String
StrConn = "ODBC;Driver=(Apples_Oranges);SERVER=SQAAPB3SBCA65130.global.Hire.com;Database=Apples_Oranges);;Port=12351;"
For Each qdf In CurrentDb.QueryDefs
If qdf.Connect <> "" Then
qdf.Connect = StrConn
Set qdf = Nothing
MsgBox Err.Number & " (" & Err.Description & ") in procedure GetQueryLinks of Module basTableLinks"