Try

            Dim con As MySqlConnection = New MySqlConnection("Server=192.168.1.99;Database=mio;uid=root;pwd=root")
            con.Open()
            Dim ds As New DataSet()
            Dim da As New MySqlDataAdapter("SELECT id_customer AS Codice, email AS Email, lastname AS Cognome, firstname AS Nome FROM ps_customer", con)
            da.Fill(ds, "ps_customer")
            dgvClienti.DataSource = ds.Tables("ps_customer")

            con.Close()
        Catch ex As Exception
            MsgBox("Errore")
            Me.Close()
        End Try