Connect to MYSQL with vb6

[Gensor]

Dim connMySQL As ADODB.Connection
 
Set connMySQL = New ADODB.Connection
 
Call connMySQL.Open("Provider=MySQLProv;Data Source=Data;User Id=root;Password=grb")
 
...

The rest of the code is no need cause the problem is on the connection.