Function checkConnection(serverHost As String, serverPort As Integer, serverDatabase As String, serverUsername As String, serverPassword As String) As Boolean
On Error Resume Next
zMGR_Test.Close
On Error GoTo errorConnection
zMGR_Test.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=" & serverHost & ";Port=" & serverPort & ";Database=" & serverDatabase & ";User=" & serverUsername & ";Password=" & serverPassword & ";Option=3;"
zMGR_Test.Open
zMGR_Test.Close
checkConnection = True
Exit Function
errorConnection:
checkConnection = False
End Function