質問: Nothing End If ``` 。
回答: > > つまり、 > > ・アクセスのテーブルに接続文字列を格納(格納場所は、 "SELECT ID, COL1 FROM ChargeInfo WHERE ID = 1" 変数はstrSqlとしたい) > > ・それをConnectionString に使いたいが、文法上エラーとなるため、他の方法もしくは > > 記述方があれば知りたい > > といった感じです。 > > > たとえば ``` Set DB = CurrentDb() ``` とでもしておいて > > CurrentDbメソッドとは、Setステートメントと組み合わせて、データベース変数にカレントデータベースへの参照を代入するメソッドです。 > > データベース名がわからなくても、VisualBasicコードからカレントデータベースにアクセスすることができます。 > > > あとは ``` SQLCommand = "SELECT ID, COL1 FROM ChargeInfo WHERE ID = 1" Set q1 = DB.OpenRecordset(SQLCommand) ``` でレコードセットを取得しておいて ``` strSql = q1![ColName] ``` でレコードセットから値(SQLServerへの接続文字列)が取れる みたいな感じでどうでしょう いろんなやるべき処理をすっ飛ばしているので各々補完してください