ciao a tutti non mi riesco a connettere a mysql qualcuno mi può aiutare?

io ho scritto questo codice:

' Parti Modificabili
dim dbCode 'Codice di accesso al mySql
dbCode="PASSWORD"
dim dbUser 'Nome di accesso al mySql
dbuser="USER"
dim dbServer 'Nome del server
dbServer="Indirizzo ip del server"
dim dbName 'Nome del database
dbname="nome db"
dim dbDriver 'Tipo di driver
dbDriver="mysql"

'Parti NON Modificabili
if trim(dbServer)<>"" then
dbServer = "server="&dbServer&";"
end if
if trim(dbName)<>"" then
dbName = "db="&dbName&";"
end if
if trim(dbDriver)<>"" then
dbDriver = "driver="&dbDriver&";"
end if
if trim(dbUser)<>"" then
dbUser = "uid="&dbUser&";"
end if
if trim(dbCode)<>"" then
dbCode = "pwd="&dbCode&";"
end if

'Preparo la stringa di connessione
dbConnessione = trim(dbServer) & trim(dbName)
dbConnessione = dbConnessione & trim(dbDriver)
dbConnessione = dbConnessione & trim(dbUser)
dbConnessione = dbConnessione & trim(dbCode)

Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.CommandTimeout = 40
OBJdbConnection.CursorLocation = 1
OBJdbConnection.ConnectionString = dbConnessione
OBJdbConnection.Open