Set Cn = CreateObject("ADODB.Connection")
Cn.Open "Driver={MySQL ODBC 3.51 Unicode Driver};" _
& "Server=" & Server_Name & ";" _
& "Database=" & Database_Name & ";" _
& "Uid=" & User_ID & ";" _
& "Pwd=" & Password & ";"