リスト2:自分自身の保存されている場所に存在する
データベースを、ADODataに接続する

Private Sub SetDbPath()
Dim strConecctString As String

' データベースのパス名を生成→グローバル変数に保存
strDbPathName = App.Path & "\" & DB_NAME
strConnectString = _
CON_STRING & strDbPathName & ";"
' ADODataコントロールにデータベースを接続
datAddress.ConnectionString = strConnectString
' レコードセットを設定
datAddress.RecordSource = SQL_STRING
End Sub

本文へ戻る