Does anyone know how to concatenate a string in Excel vb which opens a
database with a workgroup switch.

Sub Works_Prod_Acct_2()
Application.DisplayAlerts = False
Dim AccessObj As Object
Set AccessObj = CreateObject("Access.Application")
AccessObj.OpenCurrentDatabase _
'' This does not work
\\ABC\DEF\mydatabase.mdb /wrkgrp "C:\Program Files\Common
Files\System\system.mdw"
AccessObj.Visible = False
AccessObj.DoCmd.RunMacro "Macro1"
AccessObj.Quit acQuitSaveNone
Set AccessObj = Nothing
Application.DisplayAlerts = True

End Sub

Thanks

Do you really want to *open* the db file? To fetch data from MS Access
to Excel, I use ADO and SQL. The connection string if using a
Workgroup is as follows:

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\somepath\mydb.mdb;" & _
"Jet OLEDB:System Database=MySystem.mdw", _
"myUsername", "myPassword"

(above taken from http://www.able-consulting.com/MDAC/...rMicrosoftJet).

--

rmon585 (AT) hotmail (DOT) com (Rene Montes) wrote in message news:<15e0e62f.0401141346.3da11646 (AT) posting (DOT) google.com>...

onedaywhen (AT) fmail (DOT) co.uk (onedaywhen) wrote in message news:<b8c9d0b7.0401150759.3ba44b4c (AT) posting (DOT) google.com>...
Point taken.. I will try that approach instead. Thank You