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 |