[VB6] Gestione errori connessione database MySQL

[Phusys]

Come posso ricavare l'errore rilasciato in fase di connessione ad un db mysql in modo tale da poter gestire tale errore?

Per collegarmi uso questa sintassi:

Set conn = New adodb.Connection

xserver = "localhost"
xdatabase = "mydb"
xuser = "a"
xpass = "b"


connStr = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & xserver & ";" _
& "DATABASE=" & xdatabase & ";" _
& "UID=" & xuser & ";" _
& "PWD=" & xpass & ";" _
& "OPTION=18475"

conn.ConnectionString = connStr

conn.Open

Grazie