[VB6] Connessione a database Mysql e timeout obbligato

[pierchi]

Scusa ma come è fatta la stringa di connessione? Ci mostri il risultato facendo copia incolla del suo contenuto?

Set conn = CreateObject("ADODB.Connection")
connect_string = "Provider=MySqlProv;Data Source=" & Chr(34) & "server=" & mysql_host & ";DB=" & mysql_database & ";User=" & mysql_userid & ";Password=" & mysql_password & ";Option=131088; Stmt=; Connection Timeout = 1; Port=" & mysql_port & "" & Chr(34)
    conn.Provider = "MySqlProv"
    conn.ConnectionString = connect_string
    conn.CommandTimeout = 10
    conn.CursorLocation = adUseServer
    On Error GoTo Connect_Error
    If Not (conn.State = adStateOpen) Then
    conn.Properties("PROMPT") = adPromptNever
    conn.Open

questa è la stringa che uso per connettermi.