'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