> How do you specify the "current database" when opening an ADO connection?
I
> seem to recall reading at one time in the documentation on how to do it,
but
> can not find it now.  Just being lazy in terms of not wanting to provide a
> fully qualified path to the database file since the subroutine is within
the
> Access database it will be operating on.

> Thanks!!

> Don

> Public Sub RevisionBaseliner()

>     Dim cnnDataBase As ADODB.Connection
>     Dim rstSignalNames As ADODB.Recordset
>     Dim strCnn As String
>     Dim varDate As Variant

>     ' Open connection.
>         strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""X_ACU"""
>     Set cnnDataBase = New ADODB.Connection
>     cnnDataBase.Open strCnn

>     ' Open Front Panel Connector table.
>     Set rstSignalNames = New ADODB.Recordset
>     rstSignalNames.CursorType = adOpenDynamic
>     rstSignalNames.LockType = adLockOptimistic
>     rstSignalNames.Open "tblExternalConnectors", cnnDataBase, , ,
adCmdTable

>     rstSignalNames.MoveFirst

>     Do While rstSignalNames.EOF = False

>         Debug.Print rstSignalNames![SignalName]

>     Loop

>     rstSignalNames.Close
>     cnnDataBase.Close

> > How do you specify the "current database" when opening an ADO connection?
> I
> > seem to recall reading at one time in the documentation on how to do it,
> but
> > can not find it now.  Just being lazy in terms of not wanting to provide a
> > fully qualified path to the database file since the subroutine is within
> the
> > Access database it will be operating on.

> > Thanks!!

> > Don

> > Public Sub RevisionBaseliner()

> >     Dim cnnDataBase As ADODB.Connection
> >     Dim rstSignalNames As ADODB.Recordset
> >     Dim strCnn As String
> >     Dim varDate As Variant

> >     ' Open connection.
> >         strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""X_ACU"""
> >     Set cnnDataBase = New ADODB.Connection
> >     cnnDataBase.Open strCnn

> >     ' Open Front Panel Connector table.
> >     Set rstSignalNames = New ADODB.Recordset
> >     rstSignalNames.CursorType = adOpenDynamic
> >     rstSignalNames.LockType = adLockOptimistic
> >     rstSignalNames.Open "tblExternalConnectors", cnnDataBase, , ,
> adCmdTable

> >     rstSignalNames.MoveFirst

> >     Do While rstSignalNames.EOF = False

> >         Debug.Print rstSignalNames![SignalName]

> >     Loop

> >     rstSignalNames.Close
> >     cnnDataBase.Close

> Me thinks Tony buddy is trying to drum up some business for
> himself.

> He isn't interested in sharing with us.

> > > How do you specify the "current database" when opening an ADO
connection?
> > I
> > > seem to recall reading at one time in the documentation on how to do
it,
> > but
> > > can not find it now.  Just being lazy in terms of not wanting to
provide a
> > > fully qualified path to the database file since the subroutine is
within
> > the
> > > Access database it will be operating on.

> > > Thanks!!

> > > Don

> > > Public Sub RevisionBaseliner()

> > >     Dim cnnDataBase As ADODB.Connection
> > >     Dim rstSignalNames As ADODB.Recordset
> > >     Dim strCnn As String
> > >     Dim varDate As Variant

> > >     ' Open connection.
> > >         strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=""X_ACU"""
> > >     Set cnnDataBase = New ADODB.Connection
> > >     cnnDataBase.Open strCnn

> > >     ' Open Front Panel Connector table.
> > >     Set rstSignalNames = New ADODB.Recordset
> > >     rstSignalNames.CursorType = adOpenDynamic
> > >     rstSignalNames.LockType = adLockOptimistic
> > >     rstSignalNames.Open "tblExternalConnectors", cnnDataBase, , ,
> > adCmdTable

> > >     rstSignalNames.MoveFirst

> > >     Do While rstSignalNames.EOF = False

> > >         Debug.Print rstSignalNames![SignalName]

> > >     Loop

> > >     rstSignalNames.Close
> > >     cnnDataBase.Close