1 Dim conn As AccessOracleDB 2 Dim rs As ADODB.Recordset 3 4 ' インスタンス生成 5 Set conn = New AccessOracleDB 6 7 ' データベースに接続 8 Call conn.Connect(strOracleDataSource, strOracleUserID, strOracleUserPassword) 9 10'------------------------------------------------------------------------------------- 11Private OraConn As New ADODB.Connection 12 13' データベース接続フラグ 14Private blnOpen As Boolean 15 16Public Sub Co