Below is my code which worked up until this morning.
conn.Open if giving error 10060. I downloaded the latest odbc driver from MySql and that didn't help.
Dim rst As ADODB.Recordset
Dim conn As ADODB.Connection
Dim gs_SQL As String
Set rst = New ADODB.Recordset
Set conn = New ADODB.Connection
CheckADOConnection = True
conn.CursorLocation = adUseServer
conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & WebIP & ";DATABASE=" & WebDb & ";UID=" & WebUID & ";PWD=" & WebPw & "; PORT=3306; OPTION=3"
conn.Open
If Err Then
msg.Title = "ODBC Connection Error"
msg.Prompt = "Please check to make sure IP#" & GetURLDownLoad("http://automation.whatismyip.com/n09230945.asp") & " Is allowed by server"
msg.Button = vbCritical
msg.Response = MsgBox(msg.Prompt, msg.Button, msg.Title)
CheckADOConnection = False
End If
rst.Close
conn.Close
Set rst = Nothing
Set conn = Nothing
