Resolvido !
Um velho ditado diz " A fome é triste "
Eu comecei a testar antes do almoço, não dava certo, fui almoçar, e agora no retorno, lendo com calma o que o Quintas falou, vi o erro, segue :
function MySqlConnection( cServer, nPort, cDatabase, cUser, cPassword )
local cnConnection
cnConnection:= win_OleCreateObject("ADODB.Connection")
cnConnection:ConnectionString := "Driver={MySQL ODBC 3.51 Driver};Server=" + cServer + ";" + "Port=" + Ltrim( Str( nPort ) ) + ;
";Stmt=;User ID=" + cUser + ";Password=" + cPassword + ";Collation=latin1;" + ;
"UseCompression;"
/*
cnConnection:ConnectionString := "Driver={MySQL ODBC 3.51 Driver};Server=" + cServer + ";" + "Port=" + Ltrim( Str( nPort ) ) + ;
";Stmt=;Database=" + cDatabase + ";User ID=" + cUser + ";Password=" + cPassword + ";Collation=latin1;" + ;
"UseCompression;"
*/
cnConnection:CommandTimeOut := 120 //seconds
cnConnection:ConnectionTimeOut := 120 //seconds
return cnConnection
Em um exemplo do Quintas, ele colocou a conexão com o MySQL dentro de uma função, que recebe 5 parâmetros, um deles o nome do BD. Quando já existe um BD criado, ok, mas quando não existe, se usar " Database="+cDatabase+"; mesmo passando em branco o parâmetro do BD, dá erro em tempo de execução, sem, cria o BD.
Ainda falta algumas coisas, como checar se o BD já existe ou não, criar as tabelas, checar se as mesmas já existem ou não também, e por ai vai, mas com a ajuda do Quintas e "prestando atenção", tudo ok.
Abraços