Imports System
Imports System.Data
Imports System.Windows.Forms
Imports MySql.Data.MySqlClient
 
 
 
Public Class Form2
 
    Inherits System.Windows.Forms.Form
 
    Dim conn As MySqlConnection
    'Dim data As DataTable
    'Dim da As MySqlDataAdapter
    'Dim cb As MySqlCommandBuilder
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        If Not conn Is Nothing Then conn.Close()
        Dim h As String
        Dim b As String
        Dim p As String
        If Me.RadioButton1.Focus = True Then
            h = "localhost"
            b = "root"
            p = "super"
        End If
        If Me.RadioButton2.Focus = True Then
            h = "srv13.mw-internet.net"
            b = "s013w30"
            p = "fischzucht"
        End If
 
        Dim connStr As String
        connStr = String.Format("server={0};user id={1}; password={2}; " & _
          "pooling=false", h, b, p)
        MsgBox("ok")
        Try
            conn = New MySqlConnection(connStr)
            conn.Open()
            Me.Label1.BackColor = Color.Green
            Me.Label1.Text = "Verbindung steht"
            ' Me.Button1.Visible = False
        Catch ex As MySqlException
            'Me.Button1.Visible = False
            Me.Label1.Visible = False
            Me.TextBox1.Visible = True
            Me.TextBox1.Text = "Error connecting to the server: " + ex.Message
        End Try
        conn.Close()
    End Sub
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label1.Click
 
    End Sub

PS: ohne nussknacker verhungert auch das Eichhörnchen......

blutiger anf?nger
ich weiss was ich will
aber eben nicht wie es geht