'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 a09_OutODBC()
On Error Resume Next 'エラーがあった場合次へ
   rs.Close
   Set rs = Nothing
   cn.Close
   Set cn = Nothing
End Sub