Private Sub cmd_race_connect_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmd_race_connect.Click
        If Not conn Is Nothing Then conn.Close()
        Dim constr As String
        constr = String.Format("server=" & tb_race_server.Text & _
          ";database=mysql; userid=" & tb_race_user.Text & ";pwd=" & _
          tb_race_pw.Text)
 
        conn = New MySqlConnection(constr)
        rowy = 0
        rowx = 6
        Try
            conn.Open()
 
            GetDatabases()
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
        End Try
    End Sub
 
    Private Sub GetDatabases()
        Dim reader As MySqlDataReader
        da = Nothing
        reader = Nothing
 
        Dim cmd As New MySqlCommand("SHOW DATABASES", conn)
 
        Try
            reader = cmd.ExecuteReader()
            cb_race_bank.Items.Clear()
 
            While (reader.Read())
                cb_race_bank.Items.Add(reader.GetString(0))
            End While
        Catch ex As SqlException
            MessageBox.Show("Failed to populate database list: " + ex.Message)
        Finally
            If Not reader Is Nothing Then reader.Close()
        End Try
 
    End Sub

Rechtschreibfehler sind mein Copyright(C)