The following code example shows how to use the Open method using the three optional parameters and how to use a single compound statement in the ConnectionSting parameter.
Dim cn
Set cn = CreateObject("ADOCE.Connection")
'Opens a connection to a data source provider
strConn = "Provider=SQLOLEDB;Data Source=DATBTEST;Initial Catalog=TEST;User Id=sa;Password=;"
cn.Open strConn
The following code example shows how to connect to the default object store.
'Opens a connection to the default object store
Cn.Open
Cn.Open "provider=cedb"
вроде на ваше похоже, только open без () и ещё мне не понятно в вашем примере если база на другом компе как он на него заходит????
