Imports MySql.Data.MySqlClient
    Dim conex As MySqlConnection
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    conex = New MySqlConnection
    conex.ConnectionString = "server=" & textbox1.Text & ";" _
    & "user id=" & textbox2.Text & ";" _
    & "password=" & textbox3.Text & ";" _
    & "database=" & Textbox4.Text
    Try
    conex.Open()
    MessageBox.Show("Se ha conectado correctamente con la base de datos")
    conex.Close()
    Catch mierror As MySqlException
    MessageBox.Show("Aviso ; No se ha podido conectar con la base de datos: " & mierror.Message & vbExclamation)
    Finally
    conex.Dispose()
    End Try
    End Sub

    Imports MySql.Data.MySqlClient
    Dim conex As MySqlConnection
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    conex = New MySqlConnection
    conex.ConnectionString = "server=Host/ip" ";" _
    & "user id=UserDB" ";" _
    & "password=ContraseñaDB" ";" _
    & "database=Base de Datos"
    Try
    conex.Open()
    MessageBox.Show("Se ha conectado satisfactoriamente a la base de datos")
    conex.Close()
    Catch mierror As MySqlException
    MessageBox.Show("Avisa ; No se ha podido conectar con la base de datos: " & mierror.Message & vbExclamation)
    Finally
    conex.Dispose()
    End Try
    End Sub