'Access
Sub a01_InODBC()
 cn.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" & _
         "DBQ=C:\Users\kh2\SkyDrive\drinks\PL\test1.accdb;"
             'フルパス
End Sub
'MyODBC5.3_Connector/ODBCによる接続
Sub a02_InODBC()
cn.Open "DRIVER={MySQL ODBC 5.3 Unicode Driver};" _
                & "SERVER=localhost;" _
                & "DATABASE=test;" _
                & "UID=root; OPTION=3;" _
                & "PASSWORD=*****"
End Sub
Sub a03_InODBC()
 cn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
         "DBQ=C:\Users\kh2\SkyDrive\drinks\num3;"
              'フォルダーまでのパス
End Sub
Sub a04_InODBC()
 cn.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
         "DBQ=C:\Users\kh2\SkyDrive\drinks\PL\会計ソフト.xlsm;"
             'フルパス
End Sub
'udlファイルによる接続 Mysql Access他
Sub a05_InODBC()
cn.Open "File Name=C:\Users\kh2\SkyDrive\drinks\PL\pl1.udl;"
        'udlファイルのフルパス
End Sub
'切断 共通
Sub a09_OutODBC()
On Error Resume Next 'エラーがあった場合次へ
   rs.Close
   Set rs = Nothing
   cn.Close
   Set cn = Nothing
End Sub