Add Command

If btnAdd.Text = "&Add" Then
            enable(btnAdd, True)
            btnAdd.Text = "&Save"
            btnAdd.Image = My.Resources.save
            btnExit.Image = My.Resources.cancel
        Else
            'SAVE CODE
            setConnection()
            Try
                command = New MySqlCommand
                dt = New DataTable
                adapter = New MySqlDataAdapter

                If (conn.State = ConnectionState.Closed) Then
                    setConnection()
                End If

                'search for wildcard in the name column
                command = New MySqlCommand("insert into  " & db_accounting & " (acc_stud,acc_amt,acc_type,acc_rem,acc_discount) values(@id,@amt,@type,@rem,@disc)", conn)
                command.Parameters.AddWithValue("@id", lstStudID.Items(lstStud.SelectedIndex))
                command.Parameters.AddWithValue("@type", cboD_type.Text)
                command.Parameters.AddWithValue("@rem", txtD_rem.Text)

                If txtD_discount.Text = "" Then
                    command.Parameters.AddWithValue("@amt", txtD_amt.Text)
                    command.Parameters.AddWithValue("@disc", "")
                Else
                    command.Parameters.AddWithValue("@amt", lblD_discount.Text)
                    command.Parameters.AddWithValue("@disc", txtD_discount.Text & "::" & txtD_amt.Text)
                End If

                adapter.SelectCommand = command

                reader = command.ExecuteReader

                disable()

            Catch ex As MySqlException
                MessageBox.Show("Error: " & ex.Message)
            Finally
                reader.Close()
                conn.Close()
                lstStud_SelectedIndexChanged(sender, e)
            End Try
        End If