（2005/04/15修正：やっぱり構文間違ってました。すいません。orz）
Access+ADOで接続文字列を作成するとき、ADPプロジェクトでのプログラムであれば、以下の文が使用できます。
CurrentProject.Connection
たとえば、こんな感じ。
Dim cn As ADODB.Connection
Dim rs As ADODB.RecordSet
Set cn = New ADODB.Connection
Set rs = New ADODB.RecordSet
cn.ConnectionString = CurrentProject.Connection
rs.Open "TBL",cn
（以下略）
みたいな。
ちなみにこれを使うには、ADPであらかじめデータベースに接続している必要があります。