[VB6] Creare un database MySQL da codice

[Fenix'89]

Ho provato a inserire questo comando per vedere se mi si connette ma mi dice non connesso

Private Sub Command1_Click()
If (conn.State = adStateOpen) Then
MsgBox "connesso"
Else
MsgBox "nn si connette"
End If

End Sub