Imports MySql.Data.MySqlClient
Imports MySql.Data
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        Dim mySelectQuery As String = "SELECT * FROM dsl;"
        Dim myConnection As New MySqlConnection("Server=127.0.0.1; user" & _
          "id=thomas; password=blabla; Database=connect;")
        Dim myCommand As New MySqlCommand(mySelectQuery, myConnection)
 
        Try
            myCommand.Connection.Open()
            MessageBox.Show("Verbindug hergestellt")
        Catch ex As MySql.Data.MySqlClient.MySqlException
            MessageBox.Show(ex.Message)
            'Select Case ex.Number
            'Case 0
            '   MessageBox.Show("cannot connect to server")
            ' Case 1045
            '    MessageBox.Show("falsches password/username")
            'End Select
        End Try
 
        myConnection.Close()
 
 
 
    End Sub
End Class