Ho risolto con il connector di mysql

codice:
Imports MySql.Data
Imports MySql.Data.MySqlClient.MySqlConnection

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn As MySql.Data.MySqlClient.MySqlConnection = New MySql.Data.MySqlClient.MySqlConnection
        conn.ConnectionString = "Data Source=89.31.xx.xx;Database=db_xxxx;User ID=root;Password=xxxxxxxx"
        conn.Open()
        MsgBox("Connessione al database aperta con successo")
        conn.Close()


    End Sub
End Class